I need help with the KeyUp and KeyDown

[anonymoushidden]

'[GENERAL DECLARATIONS]
Dim moveUp, moveDown, moveLeft, moveRight As Boolean

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


If KeyCode = vbKeyUp Then
moveUp = True
ElseIf KeyCode = vbKeyDown Then
moveDown = True
ElseIf KeyCode = vbKeyLeft Then
moveLeft = True
ElseIf KeyCode = vbKeyRight Then
moveRight = True
End If

End Sub

Private Sub Picture1_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyUp Then
moveUp = False
ElseIf KeyCode = vbKeyDown Then
moveDown = False
ElseIf KeyCode = vbKeyLeft Then
moveLeft = False
ElseIf KeyCode = vbKeyRight Then
moveRight = False
End If

End Sub


'But my problem is how am I gonna make another Private Sub which utilizes both KeyUp and KeyDown. It would loke like this:

If moveUp = true then
Image5.Top = Image5.Top - 150

How will I make another private sub? And what would it's name be?

[sanjon]

Can't you just do this:

Dim moveUp, moveDown, moveLeft, moveRight As Boolean
Private Sub Picture1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyUp Then
moveUp = True
ElseIf KeyCode = vbKeyDown Then
moveDown = True
ElseIf KeyCode = vbKeyLeft Then
moveLeft = True
ElseIf KeyCode = vbKeyRight Then
moveRight = True
End If
KeyUpDown()
End Sub

Private Sub Picture1_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyUp Then
moveUp = False
ElseIf KeyCode = vbKeyDown Then
moveDown = False
ElseIf KeyCode = vbKeyLeft Then
moveLeft = False
ElseIf KeyCode = vbKeyRight Then
moveRight = False
End If
KeyUpDown()
End Sub

Private Sub KeyUpDown()
If moveUp = true then
moveUp = false
Image5.Top = Image5.Top - 150
End If
End Sub

Give it a try and let me know...