hur gör man så att när man trycker på vänster ska shape1 flyttas åt vänster tills man trycker på höger, upp eller ner då ska den flyttas i den riktningen?

så här kanske??

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

If ror = True Then
Select Case KeyCode
Case vbKeyLeft
do until keycode = vbkeyright
shape1.Left = shape1.Left - 50
loop
Case vbKeyRight
do until keycode = vbkeyleft
shape1.Left = shape1.Left + 50
loop
Case vbKeyDown
do until keycode = vbkeyup
shape1.top= shape1.top - 50
loop
Case vbKeyUp
do until keycode = vbkeydown
shape1.Left = shape1.Left - 50
loop
End Select
End If
end sub

vet inte om du menar så...men jag chanchar....sen skrev jag bara koden i luften...så den funkar med 50 - 50 % chans....

mvh

/bj