Option Explicit
Public stepcheck As Integer
Private Sub Timer1_Timer()
If stepcheck = 1 Then stepcheck = 0 Else stepcheck = 1
Check1.Value = stepcheck
If stepcheck = 1 Then Image1.Picture = LoadPicture("c:\programme\bild1.gif")
If stepcheck = 0 Then Image1.Picture = LoadPicture("c:\programme\bild2.gif")
End Sub