Смена картинки в Image при наведении на неё мышкой

Option Explicit
 
Private Declare Function SetCapture Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function ReleaseCapture Lib "user32" () As Long
 
Dim capControl As Image
 
Private Sub Form_Load()
 
    For Each capControl In imgLeave
        Set capControl.Picture = picState(1).Picture
    Next
    
End Sub
 
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    
    If Not capControl Is Nothing Then
        Set capControl.Picture = picState(2).Picture
    End If
    
End Sub
 
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
 
    If Not capControl Is Nothing Then
        Set capControl.Picture = picState(1).Picture
        Set capControl = Nothing
        ReleaseCapture
    End If
    
End Sub
 
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
 
    If Not capControl Is Nothing Then
        SetCapture capControl.Container.hwnd
        Set capControl.Picture = picState(1).Picture
    End If
    
End Sub
 
Private Sub imgLeave_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
 
    If Not capControl Is Nothing Then
        If capControl Is imgLeave(Index) Then Exit Sub
        Set capControl.Picture = picState(1).Picture
    End If
    
    SetCapture imgLeave(Index).Container.hwnd
    Set capControl = imgLeave(Index)
    Set capControl.Picture = picState(0).Picture
    
End Sub