Dim lngBildAnzahl As Long
Dim lngEinzelPic As Long
Dim lngZeit As Long
 
Private Sub Form_Load()
 
    Dim strDatei As String
 
    Timer1.Enabled = False
 
    strDatei = "c:\DATEN\Ball.gif" 
 
    GIF_LADEN strDatei, Image1
 
    Timer1.Enabled = True
    Timer1.Interval = 1000
    Timer1_Timer
 
End Sub