Code: Select all
Private Sub TreeView1_DblClick()
'DELETE ITEM
'here wath?
'DELETE ITEM
End Sub
Code: Select all
Private Sub TreeView1_DblClick()
'DELETE ITEM
'here wath?
'DELETE ITEM
End Sub
Code: Select all
Private SelNode As Node
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