[VB6] Ripetere il ciclo più volte

[MItaly]

Private Sub Timer1_Timer()
   Static alreadyExecuted As Boolean
   '... (fa quello che deve fare)
   If alreadyExecuted Then Timer1.Enabled=False
   alreadyExecuted=True
End Sub