在线求助诸位前辈关于如何捕捉鼠标离开某一控件的问题（制作ActiveX控件）

Question

我想制作一个简单的浮动按钮控件：当鼠标进行按钮时，浮动起来，离开时变为不浮动（平的），我是以 UserControl 界面为按钮控件，能通过 UserControl 的 MouseMove 事件可以知道鼠标进入的时机，但不知道鼠标何时离开此 UserControl 界面？故求助诸位，谢谢你的指教！！！

Answer 1

Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Declare Function SetCapture Lib "user32" (ByVal hWnd As Long) As Long
Private Sub UserControl_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
With Picture1
If Button = 0 Then
If (X < 0) Or (Y < 0) Or (X > .Width) Or (Y > .Height) Then
ReleaseCapture
' 放入鼠标离开的代码
Debug.Print "离开"
Else
SetCapture .hWnd
Debug.Print "进入"
End If
End If
' 放入鼠标进入的代码
End With
End Sub应该有效!

Answer 2

With Picture1
改成:
With UserControl呵呵,搞错!

Answer 3

TO VisionSpace(幻影时空) :
大哥你好！我按你的试了，果然好使，谢谢指教！