'模块里声明
Public Declare Function SetCapture Lib "user32" (ByVal hWnd As Long) As Long
Public Declare Function ReleaseCapture Lib "user32" () As Long

'窗体里标签labProInfo的MouseMove事件
Private Sub labProInfo_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim MouseOver As Boolean
MouseOver = (0 <= X) And (X <= Me.labProInfo.Width) And (0 <= Y) And (Y <= Me.labProInfo.Height)
If MouseOver Then
Me.labProInfo.ForeColor = vbbule
SetCapture Me.labProInfo.hWnd
Else
Me.labProInfo.ForeColor = vbRed
ReleaseCapture
End If
End Sub

我就要问怎么不能用?

我换成Picture就可以,晕了

问题解决了,放个Picture,里面放个标签,背景设一样,搞定!