Public der, arr, izq, aba As Boolean
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
        Case 37
                der = True
        Case 38
                arr = True
        Case 39
                izq = True
                
        Case 40
                aba = True
                
    End Select
    If der = True Then
        Timer1.Enabled = True
        Image1.Picture = ImageList1.ListImages(2).Picture
    End If
    If arr = True Then
        Timer2.Enabled = True
        Image1.Picture = ImageList1.ListImages(1).Picture
    End If
    If izq = True Then
        Timer3.Enabled = True
        Image1.Picture = ImageList1.ListImages(3).Picture
    End If
    If aba = True Then
        Timer4.Enabled = True
        Image1.Picture = ImageList1.ListImages(4).Picture
    End If
End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
        Case 37
               Timer1.Enabled = False
        Case 38
               Timer2.Enabled = False
        Case 39
               Timer3.Enabled = False
        Case 40
               Timer4.Enabled = False
    End Select
End Sub

Private Sub Form_Load()
Timer1.Enabled = False
Timer2.Enabled = False
Timer3.Enabled = False
Timer4.Enabled = False
End Sub

Private Sub Timer1_Timer()
    Image1.Left = Image1.Left - 100
    If Image1.Left <= 0 Then
        Image1.Left = Image1.Left + 100
    End If
End Sub

Private Sub Timer2_Timer()
    Image1.Top = Image1.Top - 100
    If Image1.Top <= 0 Then
        Image1.Top = Image1.Top + 100
    End If
End Sub

Private Sub Timer3_Timer()
    Image1.Left = Image1.Left + 100
    If Image1.Left >= 7080 Then
        Image1.Left = Image1.Left - 100
    End If
End Sub

Private Sub Timer4_Timer()
    Image1.Top = Image1.Top + 100
    If Image1.Top >= 7440 Then
        Image1.Top = Image1.Top - 100
    End If
End Sub