Private Sub treeview1_MouseHover(ByVal sender As Object, ByVal e As _
  TreeNodeMouseHoverEventArgs) Handles treeView1.NodeMouseHover
        e.Node.BackColor = Color.Beige

    Dim ln As TreeNode
    Dim oc As Color
    Private Sub treeview1_MouseHover(ByVal sender As Object, ByVal e As _
      TreeNodeMouseHoverEventArgs) Handles TreeView1.NodeMouseHover
        If ln IsNot e.Node Then
            If ln IsNot Nothing Then
                ln.BackColor = oc
                ln = Nothing
            End If
            If e.Node IsNot Nothing Then
                ln = e.Node
                oc = ln.BackColor
                ln.BackColor = Color.Beige
            End If
        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

________
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