Game Code

Private Sub cmdDown_Click()

Timer1.Enabled = False
Image1.Top = Image1.Top + 15
Timer1.Enabled = True
End Sub

Private Sub cmdLeft_Click()
Timer1.Enabled = False
Image1.Left = Image1.Left - 50
Timer1.Enabled = True

End Sub

Private Sub cmdRight_Click()
Timer1.Enabled = False
Image1.Left = Image1.Left + 50
Timer1.Enabled = True
End Sub

Private Sub cmdUp_Click()
Timer1.Enabled = False
Image1.Top = Image1.Top - 150
Timer1.Enabled = True
If Image1.Top < 120 Then
Timer1.Enabled = False
MsgBox ("Game Over")
End If

End Sub


Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyUp Then
Timer1.Enabled = False
Image1.Top = Image1.Top - 50
Timer1.Enabled = True
End If
If KeyCode = vbKeyDown Then
Timer1.Enabled = False
Image1.Top = Image1.Top + 50
Timer1.Enabled = True
End If
If KeyCode = vbKeyLeft Then
Timer1.Enabled = False
Image1.Left = Image1.Left - 30
Timer1.Enabled = True
End If
If KeyCode = vbKeyRight Then
Timer1.Enabled = False
Image1.Left = Image1.Left + 30
Timer1.Enabled = True
End If

End Sub

Private Sub Form_Load()
Image1.Top = Image1.Top + 50

End Sub

Private Sub Timer1_Timer()
Image1.Top = Image1.Top + 12
If Image1.Top < 120 Or Image1.Top > 5160 Or Image1.Left <= 0 Or Image1.Left > 3000 Then
Timer1.Enabled = False
MsgBox "Game Over"
Image1.Top = 121
Image1.Left = 2

End If
End Sub