如何知道鼠标进入或离开控件的上方？

Question

我在想应用于自定义控件，请问有没有这个事件，API函数？

Answer 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)
Dim MouseEnter As Boolean
MouseEnter = (0 <= X) And (X <= Command1.Width) And (0 <= Y) And (Y <= Command1.Height)
If MouseEnter Then
   Me.Caption = "进入"
   SetCapture Command1.hWnd
Else
   Me.Caption = "退出"
   ReleaseCapture
End If
End Sub

Answer 2

MouseMove　事件，那好像要用很多系统资源。