Private Declare Function SetTimer Lib "user32" _
  (ByVal hwnd As Long, ByVal nIDEvent As Long, _
  ByVal uElapse As Long, ByVal lpTimer As Long) As Long
 
Public Declare Function KillTimer Lib "user32" _
  (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
 
Private Const MY_ELAPSE = 1000 ' Wartezeit: eine Sekunde
 
<font color=green>' Timer-ID</font>
Public lngMyTimer As Long

Sub Main()
  lngMyTimer = SetTimer(0, 0, MY_ELAPSE, _
    AddressOf MyWin_Event)
 
  Form1.Show
End Sub

Sub MyWin_Event()
  <font color=green>' Diese Sub-Routine wird - ohne Ihr zutun - jede
  ' Sekunde aufgerufen.
  ' Hier fügen Sie die Routinen ein, die automatisch
  ' gestartet werden sollen.</font>
 
  With Form1.Command1
    .Caption = CStr(Val(.Caption) + 1)
  End With
End Sub

Private Sub Command1_Click()
  KillTimer 0, lngMyTimer
End Sub