Private Sub Label2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, _
  ByVal X As Single, ByVal Y As Single)
On Error GoTo Sprung:
 
 
    If (X < 7 Or X > Label2.Width - 7) Or (Y < 7 Or Y > Label2.Height - (400 + _
      7)) Then
        MeilensteinkommentarM1.Visible = False
    ElseIf Not (X < 7 Or X > Label2.Width - 7) Or (Y < 7 Or Y > Label2.Height - _
      (400 + 7)) Then
        MeilensteinkommentarM1.Visible = True
    End If
 
    If (X < 7 Or X > Label2.Width - 7) Or (Y < (7 + 25) Or Y > Label2.Height - ( _
      375 + 7)) Then
        MeilensteinkommentarM2.Visible = False
    ElseIf Not (X < 7 Or X > Label2.Width - 7) Or (Y < (7 + 25) Or Y > _
      Label2.Height - (375 + 7)) Then
        MeilensteinkommentarM2.Visible = True
    End If
 
end Sub