Možda ubaciš neku promenljivu blnTimerDone i Timer Interval forme podesiš na nekih 100 ms. Onda ubaciš kod
Code: Dim blnTimerDone As Boolean
Private Sub Form_Current()
If blnTimerDone = False Then Exit Sub
' .......
End Sub
Private Sub Form_Timer()
blnTimerDone = True
Form_Current
Me.TimerInterval = 0
End Sub