Private Sub lblVERBOSE_MouseMove(ByVal sender As Object, ByVal e As _
   System.Windows.Forms.MouseEventArgs) Handles lblVERBOSE.MouseMove
        Dim strToolTip As String = ""
        Dim i As Integer
        Dim tltVERBOSE As Object
 
        Try
 
            strToolTip = "Alle Debugging- und Tracing- Meldungen werden" & _
              "ausgegeben"
 
            If tltVERBOSE.GetToolTip(lblVERBOSE) <> strToolTip Then
                tltVERBOSE.SetToolTip(lblVERBOSE, strToolTip)
            End If