key press

[dennishea]

Is there a way to detect in one sub without a library for one of these key press's (cUpKey, cDownKey, cRightKey, cLeftKey).


dennishea

edit: figured it out

Sub Form2_KeyPress(key)
If key = cDownKey Then
image1.Top = -400
End If
If key = cUpKey Then
image1.Top = 12
End If
If key = cLeftKey Then
image1.Left = - 400
End If
If key = cRightKey Then
image1.Left = 12
End If
End Sub

going to change to select though.