' Controls: Timer, Picturebox
 
Private Sub Form_Load()
 
  Call Animation_ein
 
End Sub
 
Private Sub Animation_ein()
 
  With Picture1
    .ScaleMode = vbPixels
    .AutoRedraw = True
    .Cls
    .Visible = True
  End With
  Timer1.Interval = 20
  Timer1.Enabled = True
 
End Sub
 
Private Sub Animation_aus()
 
  Timer1.Enabled = False
  Picture1.Visible = False
 
End Sub
 
Private Sub Timer1_Timer()
 
  Static N&
 
  N = N + 4
  If N >= Picture1.ScaleWidth Then N = -60
  Picture1.Cls
  Picture1.Line (N, 0)-Step(60, Picture1.ScaleHeight), RGB(0, 0, 128), BF
 
End Sub

Gruss,

Zardoz