为什么在使用两幅GIF图片来实现“热点”时，会不停的闪动！

Question

实现方法：
    使用一个图片，当检测到鼠标在上面时就去Load比较亮一点的GIF图标。
    当检测到鼠标离开就去Load比较暗一点的那个GIF图标。

Answer 1

我是这样实现的，您看看
In Module:Public Declare Function SetCapture Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function ReleaseCapture Lib "user32" () As Long
In Form:'在路口方向中移动，突出显示
Private Sub PicParts_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button <> 0 Then Exit Sub
    
    With PicParts(Index)
        If (X < 0) Or (Y < 0) Or (X > .Width) Or (Y > .Height) Then
            ReleaseCapture
            .BorderStyle = 0
        Else
            SetCapture .hwnd
            .BorderStyle = 1
            .MousePointer = vbCustom
        End If
    End With
End Sub

Answer 2

用的是MouseMove时间，并使用SetCapture和ReleaseCapture  两个API函数实现。Load图片使用的是LoadPicture.