Private Sub ListView_monatseintraege_MouseMove(ByVal sender As Object, ByVal e _
  As System.Windows.Forms.MouseEventArgs) Handles _
  ListView_monatseintraege.MouseMove
        Dim sToolTip As String = ""
        Dim ListTooltip As New ToolTip
        ListView_monatseintraege.ShowItemToolTips = True
        ListTooltip.SetToolTip(ListView_monatseintraege, "TEST")
    End Sub

Jedes Programm,
in das sich ein Fehler einschleichen kann,wird auch einen enthalten.