Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
 
Private Sub Command1_Click()
Timer1.Enabled = False
End Sub

dim stopbuttonmodus as integer
 
Private Sub Form_Load()
   stopbuttonmodus =0
End Sub
 
Private Sub Command1_Click()
if stopbuttonmodus =0 then
   stopbuttonmodus=1
   timer1.enabled=true
   command1.caption="Stop"
else
   stopbuttonmodus=0
   timer1.enabled=false
   command1.caption="Weiter"
end if
end sub