VERSION 5.00 Begin VB.Form Form1 Caption = "Form1" ClientHeight = 4035 ClientLeft = 60 ClientTop = 450 ClientWidth = 5145 LinkTopic = "Form1" ScaleHeight = 4035 ScaleWidth = 5145 StartUpPosition = 3 'Windows Default Begin VB.PictureBox img Height = 855 Left = 1920 ScaleHeight = 795 ScaleWidth = 1155 TabIndex = 0 Top = 1440 Width = 1215 End End Attribute VB_Name = "Form1" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Private Sub img_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 40 Then img.Top = img.Top + 50 If KeyCode = 37 Then img.Left = img.Left - 50 If KeyCode = 38 Then img.Top = img.Top - 50 If KeyCode = 39 Then img.Left = img.Left + 50 End Sub