delete on treeview

[sal21]

Code: Select all

Private Sub TreeView1_DblClick()
'DELETE ITEM
'here wath?
'DELETE ITEM
End Sub

[HansV]

Test carefully:

At the top of the form module:

Code: Select all

Private SelNode As Node

In the module:

Code: Select all

Private Sub TreeView1_DblClick()
    Me.TreeView1.Nodes.Remove SelNode.Index
End Sub

Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
    Set SelNode = Node
End Sub