Private Sub Timer4_Timer()
For number3 = 0 To Shape2.UBound
 
If Shape2(number3).Left = 6850 Then
    Shape2(number3).Left = Shape2(number3).Left + 100
    GoTo Ende
End If 'nach rechts
 
If Shape2(number3).Left = 6950 Then
    Shape2(number3).Left = Shape2(number3).Left - 100
    GoTo Ende
End If 'nach links
 
Ende:
If Shape2(number3).Top <= 0 Then
    Shape2(number3).Top = 3600
End If
 
Next
End Sub

Wer anderen eine Grube gr?bt, hat wohl ein Grubengrabger?t!