Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    Select Case KeyCode
        Case vbKeyUp
            timer1.Enabled = True
End Sub

'KeyUp Event
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
    Select Case KeyCode
        Case vbKeyUp
            MsgBox ("KeyUp in Select Case!")
        Case vbKeyDown
            MsgBox ("KeyDown in Select Case!")
    End Select
End Sub

'KeyDown Event
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    Select Case KeyCode
        Case vbKeyUp
            MsgBox ("KeyUp in Select Case!")
        Case vbKeyDown
            MsgBox ("KeyDown in Select Case!")
    End Select
End Sub

'KeyUp Event
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
    Select Case KeyCode
        Case vbKeyUp
            Timer1.Enabled = False
        Case vbKeyDown
            Timer1.Enabled = True
    End Select
End Sub

'KeyDown Event
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    Select Case KeyCode
        Case vbKeyUp
            Timer2.Enabled = False
        Case vbKeyDown
            Timer2.Enabled = True
    End Select
End Sub

Private Sub Timer1_Timer()
    Command1.Top = Command1.Top + 20
End Sub

Private Sub Timer2_Timer()
    Command1.Top = Command1.Top - 20
End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
    Select Case KeyCode
        Case vbKeyUp
            Text1.Text = "UP"
        Case vbKeyDown
            Text1.Text = "DOWN"
        Case vbKeyLeft
            Text1.Text = "LEFT"
        Case vbKeyRight
            Text1.Text = "RIGHT"
    End Select
End Sub

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
    Select Case KeyCode
        Case vbKeyUp
            Text1.Text = "neutral"
        Case vbKeyDown
            Text1.Text = "neutral"
        Case vbKeyLeft
            Text1.Text = "neutral"
        Case vbKeyRight
            Text1.Text = "neutral"
    End Select
End Sub

Private Sub Timer1_Timer()
   cmd1.Top = cmd1.Top - 20
End Sub

Private Sub Timer2_Timer()
    cmd1.Top = cmd1.Top + 20
End Sub

Private Sub Timer3_Timer()
    cmd1.Left = cmd1.Left - 20
End Sub

Private Sub Timer4_Timer()
    cmd1.Top = cmd1.Top + 20
End Sub

Private Sub Timer5_Timer()
    If Text1.Text = "UP" Then
    Timer1.Enabled = True
    
    If Text1.Text = "DOWN" Then
    Timer2.Enabled = True
    
    If Text1.Text = "LEFT" Then
    Timer3.Enabled = True
    
    If Text1.Text = "RIGHT" Then
    Timer4.Enabled = True
    
    If Text1.Text = "neutral" Then
    Timer1.Enabled = False
    If Text1.Text = "neutral" Then
    Timer2.Enabled = False
    If Text1.Text = "neutral" Then
    Timer3.Enabled = False
    If Text1.Text = "neutral" Then
    Timer4.Enabled = False
End If
End If
End If
End If
End If
End If
End If
End If

End Sub

'A variable for each of the directions
dim vxr as integer, vxl, vyu, vyd


Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
'Sets the variables to 20 or -20 when you press the keys
    Select Case KeyCode
        Case vbKeyUp
            vyu = -20
        Case vbKeyDown
            vyd = 20
        Case vbKeyLeft
            vxl = -20
        Case vbKeyRight
            vxr = 20
    End Select
End Sub


Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
'Sets the variable to 0 when you release the keys
    Select Case KeyCode
        Case vbKeyUp
            vyu=0
        Case vbKeyDown
            vyd=0
        Case vbKeyLeft
            vxl=0
        Case vbKeyRight
            vxr=0
    End Select
End Sub

Private Sub Timer1_Timer()
' One timer who moves it to all directions at the same time,, pressing two buttons ie left and right will make the total change to 0 making it stand still in that direction
  
    cmd1.Top = cmd1.Top + vyu
    cmd1.Top = cmd1.Top + vyd
    cmd1.left = cmd1.left + vxl
    cmd1.left = cmd1.left + vxr

End Sub