• Home
 · 
• Games
 · 
• Ball

Ball

This is a very simple code that allows you to move an image with
your arrow keys or the #s 8,6,4, and 2.

Assumes
I assume that you made your own image to move with the arrow keys Note: you can change the speed of the ball by changing the number after the plus or minus sign

Rate Ball

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
'you can change the speed of the ball by changing the numbers after the + and - signs
If KeyCode = vbKeyF1 Then
MsgBox ("Created by Ben Doherty, [email protected] or http://www.mindspring.com/~jake-d/vb/")
End If
If KeyCode = vbKeyUp Then
Image1.Top = Image1.Top - 30
End If
If KeyCode = vbKeyDown Then
Image1.Top = Image1.Top + 30
End If
If KeyCode = vbKeyLeft Then
Image1.Left = Image1.Left - 30
End If
If KeyCode = vbKeyRight Then
Image1.Left = Image1.Left + 30
End If
End Sub

Private Sub Form_Load()
End Sub