Dim oldCursor As Cursor
    Private Sub tv_MouseMove(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles tv.MouseMove
        Dim tn As TreeNode = tv.HitTest(e.Location).Node
        If tn IsNot Nothing Then
            If Me.Cursor IsNot Cursors.Hand Then
                oldCursor = Me.Cursor
                Me.Cursor = Cursors.Hand
            End If
        Else
            Me.Cursor = oldCursor
        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