VB 获取对象鼠标经过与离开事件

在编写程序时，有时，为了美化操作，或者进行特殊数据的提醒，比如，自定义tooltips,可以通过下面的代码实现，或者，当鼠标经过按钮时，进行特殊提醒等操作，可以用如下方法实现：

注意：如果是按钮，像下面的程序，背景是否表色还要看按钮的Style是否是1，只有是1，才会有如下图效果。

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)
    If 0 <= X And X <= Command1.Width And 0 <= Y And Y <= Command1.Height Then
        SetCapture Command1.hwnd
        ‘下面写上鼠标经过的程序段
         Command1.BackColor = vbRed
    Else
        ReleaseCapture
        '下面写鼠标离开的程序段，这样就可以优化自带的MouseMove事件了
         Command1.BackColor = &H8000000F
    End If
End Sub