skulle vilja att kan kunde göra så här:
Select Case KeyCode
Case vbKeyLeft and vbKeyUp
'kod
Case vbKeyDown and vbKeyLeft
'kod
End Select


Men det fukar ju inte.... någon som kan hjälpa mig?

såvitt jag vet pallar inte vb det. skulle väl eventuellt vara med ett api. annars directx.

Testa denna koden. Bör nog lösa ditt problem.

Private mKeyLeft As Boolean
Private mKeyUp As Boolean
Private mKeyDown As Boolean
Private mKeyLeft As Boolean


Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyLeft
mKeyLeft = True
Case vbKeyUp
mKeyUp = True
Case vbKeyDown
mKeyDown = True
Case vbKeyLeft
mKeyLeft = True
End Select
End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyLeft
mKeyLeft = False
Case vbKeyUp
mKeyUp = False
Case vbKeyDown
mKeyDown = False
Case vbKeyLeft
mKeyLeft = False
End Select
End Sub

underbart, TACK!

Kolla denna kod; den torde funka:

I deklarationen:
Private Keys(0 To 255) As Boolean

I KeyDown:
Keys(KeyCode) = True

I KeyUp:
Keys(KeyCode) = False

Funkar för alla knappar