תשובה
א. צריך לוודא ש- KeyPreview = True בטופס שעליו עובדים. ב. קוד לדוגמה HAND = האובייקט שרוצים להזיז :
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Select Case KeyCode Case vbKeyUp: Hand.Top = Hand.Top - 50 Case vbKeyDown: Hand.Top = Hand.Top + 50 Case vbKeyLeft: Hand.Left = Hand.Left - 50 Case vbKeyRight: Hand.Left = Hand.Left + 50 End Select End Sub
