... 
Private Sub mainloopkram()
'Tastatur abfragen und entsprechende Richtung setzen
Select Case Inkey
    Case vbKeyUp
    Playerrichtung = 1
    Case vbKeyDown
    Playerrichtung = 2
    Case vbKeyRight
    Playerrichtung = 3
    Case vbKeyLeft
    Playerrichtung = 4
End Select
 
'Spieler bewegen
'Wenn sich der Spieler an einer Wand befindet -> Richtung ändern
Select Case Playerrichtung
    Case 1
    If PlayerPos.Y >= 0 Then PlayerPos.Y = PlayerPos.Y - 4 Else _
      Playerrichtung = 2
    Case 3
    If PlayerPos.X <= 558 - 57 Then PlayerPos.X = PlayerPos.X + 4 Else _
      Playerrichtung = 4
    Case 2
    If PlayerPos.Y <= 526 - 84 Then PlayerPos.Y = PlayerPos.Y + 4 Else _
      Playerrichtung = 1
    Case 4
    If PlayerPos.X >= 0 Then PlayerPos.X = PlayerPos.X - 4 Else _
      Playerrichtung = 3
End Select
 
'Ziel bewegen
'Wenn sich das Ziel an einer Wand befindet -> Richtung ändern
Select Case Zielrichtung
    Case 1 'hoch
    If ZielPos.Y >= 0 Then ZielPos.Y = ZielPos.Y - 4 Else Zielrichtung = 2
    Case 3 'rechts
    If ZielPos.X <= 558 - 59 Then ZielPos.X = ZielPos.X + 4 Else Zielrichtung = 4
    Case 2 'runter
    If ZielPos.Y <= 526 - 84 Then ZielPos.Y = ZielPos.Y + 4 Else Zielrichtung = 1
    Case 4 'links
    If ZielPos.X >= 0 Then ZielPos.X = ZielPos.X - 4 Else Zielrichtung = 3
End Select
 
'Änderungen der Positionen auf die Grafiken übertragen
picPlayer.Top = PlayerPos.Y * 15
picPlayer.Left = PlayerPos.X * 15
 
picZiel.Top = ZielPos.Y * 15
picZiel.Left = ZielPos.X * 15
 
'Berührt der Spieler den Punkt?
If ZielPos.X + 59 >= PlayerPos.X And ZielPos.X <= PlayerPos.X + 57 _
And ZielPos.Y + 67 >= PlayerPos.Y And ZielPos.Y <= PlayerPos.Y + 85 Then
 
    'Wenn Ja,Score erhöhen..
    Score = Score + 1
    lblScore.Caption = Score
 
    '..und Ziel an neue Positon setzen
    ZielPos.X = rand(59, 500)
    ZielPos.Y = rand(67, 500)
 
    '..und Startrichtung für Ziel definieren
    Zielrichtung = rand(1, 4)
 
End If
 
'Programm "ausbremsen",indem einige Millisekunden gewartet wird
Sleep GameSpeed
 
'Windowskram erledigen
DoEvents
 
End Sub
'/////////////////////////////////////////////////////////////////////////////
Private Sub mainloop()
'// Mainloop //
'//////////////
 
Do
mainloopkram
'Anweisungen...............
Loop While Score < 10
 
Do While Score >= 11 And Score < 20
mainloopkram
'Anweisungen...............
Loop
 
Do While Score >= 21 And Score < 30
mainloopkram
'Anweisungen...............
Loop
 
Do While Score >= 31 And Score < 40
mainloopkram
'Anweisungen...............
Loop
 
.
.
.
usw.
'/////////////////////////////////////////////////////
Private Sub lblStart_Click()
 
'// Anfangsgeschwindigkeit + Startzeit
GameSpeed = 40
GameTime = 45   'Sekunden Zeit
 
'// Timerinterval einstellen
tmrTime.Interval = 1000         'Zählt Zeit herunter
 
'// Startpositionen der Grafiken festlegen
ZielPos.X = rand(10, 500)
ZielPos.Y = rand(10, 500)
PlayerPos.X = 40
PlayerPos.Y = 100
 
'// Player Startrichtung
Playerrichtung = rand(1, 4)
 
'// Ziel Startrichtung
Zielrichtung = rand(1, 4)
 
'// Mainloop starten
mainloop
 
End Sub