Private Sub CheckMouse(ByVal X As Single, ByVal Y As Single)
  ' Hier wird überprüft, ob sich die Maus innerhalb des
  ' Controls befindet oder eben nicht
  With UserControl
    If X < 0 Or Y < 0 Or X > .ScaleWidth Or Y > .ScaleHeight Then
      If Not ButtonPressed Then ReleaseCapture
      MouseIn = False ' außerhalb
    Else
      If Not ButtonPressed Then SetCapture .hWnd
      MouseIn = True ' innerhalb
    End If
  End With
End Sub

Private Sub UserControl_MouseMove(Button As Integer, Shift As Integer, X As _
  Single, Y As Single)
  Call CheckMouse(X, Y) ' Maus überprüfen
  If MouseIn = True Then butnorm.Visible = False
  If MouseIn = False Then butnorm.Visible = True
End Sub