Private Declare Function SetCapture Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function ReleaseCapture Lib "user32" () As Long

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim MouseOver As Boolean

'判断当前鼠标位置是否在Object1上
MouseOver = (0 <= X) And (X <= Command1.Width) And (0 <= Y) And (Y <= Command1.Height)
If MouseOver Then
' MouseOver Event
' 假如鼠标在Object1上, 则利用SetCapture将每一个鼠标事件都传递给Object1
Me.Caption = "0"
SetCapture Command1.hWnd
Else
' MouseLeave Event
' 假如鼠标不在Object1上, 则利用SetCapture释放鼠标捕捉
Me.Caption = "1"
ReleaseCapture
End If
End Sub