הזזה ע``י המקלדת
הקוד מזיז אובייקט תמונה בעזרת החיצים 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 *יש ליצור אובייקט תמונה
