Dim varMove_left As Integer
Dim varMove_top As Integer
Dim MovementAllowed As Boolean
Option Explicit
 
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
'Key-Event
    Dim Number As Integer
    Dim Collision As Boolean
    Select Case KeyCode
        Case vbKeyUp
            shpCharacter.Picture = LoadPicture(App.Path + _
              "\gfx\player1_sprites\player1_up.gif")
            Call letMove(-250, 0)
        Case vbKeyDown
            shpCharacter.Picture = LoadPicture(App.Path + _
              "\gfx\player1_sprites\player1_down.gif")
            Call letMove(250, 0)
        Case vbKeyLeft
            shpCharacter.Picture = LoadPicture(App.Path + _
              "\gfx\player1_sprites\player1_left.gif")
            Call letMove(0, -200)
        Case vbKeyRight
            shpCharacter.Picture = LoadPicture(App.Path + _
              "\gfx\player1_sprites\player1_right.gif")
            Call letMove(0, 200)
        Case KeyCode = 27
        		End
    End Select
 
'Collision-Check 
    For Number = 0 To shpSpace.UBound
        If shpCharacter.Left < shpSpace(Number).Left + shpSpace(Number).Width _
          And shpSpace(Number).Left < shpCharacter.Left + shpCharacter.Width Then
            If shpCharacter.Top < shpSpace(Number).Top + shpSpace( _
            Number).Height And shpSpace(Number).Top < shpCharacter.Top + _
            shpCharacter.Height Then
                Collision = True
            End If
        End If
    Next
 
    If Collision = True Then
        Select Case KeyCode
            Case vbKeyLeft
                shpCharacter.Left = shpCharacter.Left + 200
            Case vbKeyRight
                shpCharacter.Left = shpCharacter.Left - 200
            Case vbKeyUp
                shpCharacter.Top = shpCharacter.Top + 250
            Case vbKeyDown
                shpCharacter.Top = shpCharacter.Top - 250
        End Select
     End If 
End Sub
 
Function letMove(varMove_top, varMove_left)
    shpCharacter.Move shpCharacter.Left + varMove_left
    shpCharacter.Move shpCharacter.Left, shpCharacter.Top + varMove_top
End Function