Private Declare Function SetCapture Lib "user32.dll" _
  (ByVal hwnd As Long) As Long
 
 
Private Declare Function ReleaseCapture Lib "user32.dll" _
  () As Long
 
Private Declare Function SetFocusWnd Lib "user32.dll" _
  Alias "SetFocus" (ByVal hwnd As Long) As Long
 
Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, _
  Y As Single)
 
  With Label1
       If X >= 0 And Y >= 0 And X <= .Width And Y <= .Height Then
             SetCapture .hwnd
            .Forecolor = vbred
       Else 
            ReleaseCapture
            .Forecolor = vbblack
        End If
  End With
End Sub