Dim mn As TreeNode
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Timer1.Tick
        Debug.WriteLine("Tick! node=" & mn.Text)
        Timer1.Enabled = False
        mn = Nothing
    End Sub
 
    Private Sub tv_MouseMove(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles tv.MouseMove
        Dim node As TreeNode = tv.GetNodeAt(New Point(e.X, e.Y))
        If Not node Is Nothing Then
            If node Is mn Then
                Return
            Else
                Timer1.Enabled = False
                mn = node
                Timer1.Enabled = True
                Timer1.Interval = 5000
            End If
        Else
            Timer1.Enabled = False
            mn = Nothing
        End If
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist