הקוד שלך
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Select Case KeyCode Case vbKeyUp picCar.Top = picCar.Top - 10 Case vbKeyDown picCar.Top = picCar.Top + 10 Case vbKeyLeft picCar.Left = picCar.Left - 10 Case vbKeyRight picCar.Left = picCar.Left + 10 End Select End Sub Private Sub Form_Load() Show picCar.Picture = LoadPicture(``car1.jpg``) Form1.KeyPreview = True End Sub *יש להוסיף אובייקט תמונה *התמונה זזה ע``י מקשי החיצים
