Private Sub Form_Load()
  Image1.Tag = 0  
  Timer1_Timer
  Timer1.Interval = 500
  Timer1.Enabled = True
End Sub
 
Private Sub Timer1_Timer()
  If Image1.Tag = 0 Then
    Image1.Picture = LoadPicture("PfadBild1.gif")
    Timer1.Tag = 1
  Else
    Image1.Picture = LoadPicture("PfadBild2.gif")
    Image1.Tag = 0
  End If
End Sub