' Visual Basic Programming
' by Mr. Minich
' Ch. 7 Demo #7
' Purpose - to demonstrate the use of the form's KeyDown event along with the keyboard arrow keys

Option Explicit

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

    If (KeyCode = vbKeyLeft) Then
        shpPlayer1.Left = shpPlayer1.Left - 10
    ElseIf (KeyCode = vbKeyRight) Then
        shpPlayer1.Left = shpPlayer1.Left + 10
    ElseIf (KeyCode = vbKeyUp) Then
        shpPlayer1.Top = shpPlayer1.Top - 10
    ElseIf (KeyCode = vbKeyDown) Then
        shpPlayer1.Top = shpPlayer1.Top + 10
    End If
    
End Sub