Option Compare Database Option Explicit Private Sub Command0_Click() Me.TimerInterval = 5000 MsgBox "Pozdrav. Gasim se nakon 5 sekundi." Me.TimerInterval = 0 End Sub Private Sub Form_Timer() SendKeys "{Enter}" End Sub