Private Sub Form_Load()
  <font color=green>' Timer initialisieren</font>
  Timer1.Interval = 10000  <font color=green>' 10 Sekunden</font>
  Timer1.Enabled = False
 
  Command1.Caption "Timer starten"
End Sub

Private Sub Command1_Click()
  If Not Timer1.Enabled Then
    Timer1.Enabled = True
    Command1.Caption = "Timer stoppen"
    Timer1_Timer
  Else
    Timer1.Enabled = False
    Command1.Caption = "Timer starten"
  End If
End Sub