Private Sub Label2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, _
  ByVal X As Single, ByVal Y As Single)
 
    If (X < 7 Or X > Label2.Width - 7) Or (Y < 7 Or Y > Label2.Height - ( _
      400 + 7)) Then
        MeilensteinkommentarM1.Visible = False
    Else
        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
    Else
        MeilensteinkommentarM2.Visible = True
    End If
 
end Sub