Private Sub Fahren_Click()
  Timer1.Interval = 50
   Timer1.Enabled = True
  Timer1_Timer
End Sub
 
Private Sub Form_Load()
  Auto.Left = 0
End Sub
 
Private Sub Stopp_Click()
  Timer1.Enabled = False
End Sub
 
Private Sub Timer1_Timer()
  Auto.Left = Auto.Left + 50
  If Auto.Left + Auto.Width >= Me.ScaleWidth Then
    Auto.Left = 0
  End If
End Sub