Private Sub Label2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, _
  ByVal X As Single, ByVal Y As Single)
  MeilensteinkommentarM1.Visible = True
End Sub
 
Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, _
  ByVal X As Single, ByVal Y As Single)
  MeilensteinkommentarM1.Visible = False
End Sub

Gruss,

Zardoz