Private WithEvents myClass As clsNewTimer
 
Private Sub Command1_Click()
   myClass.TimerInterval = 10
End Sub
 
Private Sub Form_Load()
   Set myClass = New clsNewTimer
   myClass.TimerName = "Timer1"
   Set myClass.FormObject = Form1
End Sub
 
Private Sub myClass_NewTimer1()
   Static x As Long
   x = Pferd(1).Left
   x = x + 10
   Pferd(1).Move x
   DoEvents
   PferdPosition 1
End Sub
 
Private Sub myClass_NewTimer10()
   Static x As Long
   x = Pferd(10).Left
   x = x + 10
   Pferd(10).Move x
   DoEvents
   PferdPosition 10
End Sub
 
Private Sub myClass_NewTimer2()
   Static x As Long
   x = Pferd(2).Left
   x = x + 10
   Pferd(2).Move x
   DoEvents
   PferdPosition 2
End Sub
 
Private Sub myClass_NewTimer3()
   Static x As Long
   x = Pferd(3).Left
   x = x + 10
   Pferd(3).Move x
   DoEvents
   PferdPosition 3
End Sub
 
Private Sub myClass_NewTimer4()
   Static x As Long
   x = Pferd(4).Left
   x = x + 10
   Pferd(4).Move x
   DoEvents
   PferdPosition 4
End Sub
 
Private Sub myClass_NewTimer5()
   Static x As Long
   x = Pferd(5).Left
   x = x + 10
   Pferd(5).Move x
   DoEvents
   PferdPosition 5
End Sub
 
Private Sub myClass_NewTimer6()
   Static x As Long
   x = Pferd(6).Left
   x = x + 10
   Pferd(6).Move x
   DoEvents
   PferdPosition 6
End Sub
 
Private Sub myClass_NewTimer7()
   Static x As Long
   x = Pferd(7).Left
   x = x + 10
   Pferd(7).Move x
   DoEvents
   PferdPosition 7
End Sub
 
Private Sub myClass_NewTimer8()
   Static x As Long
   x = Pferd(8).Left
   x = x + 10
   Pferd(8).Move x
   DoEvents
   PferdPosition 8
End Sub
 
Private Sub myClass_NewTimer9()
   Static x As Long
   x = Pferd(9).Left
   x = x + 10
   Pferd(9).Move x
   DoEvents
   PferdPosition 9
End Sub
 
Private Sub PferdPosition(ByVal Nr As Byte)
   If Pferd(Nr).Left + Pferd(Nr).Width >= Form1.ScaleWidth Then
      myClass.TimerInterval = 0
      MsgBox "Sieg" + vbNewLine + "Nr: " + CStr(Nr) + " hat gewonnen :-)"
   End If
End Sub