TreeView1_NodeClick TreeView1.Nodes("D") ' CITE BY KEY TreeView1_NodeClick TreeView1.Nodes(3) ' CITE BY INDEX End SubPrivate Sub Form_Load() Dim i As Integer For i = 1 To 20 TreeView1.Nodes.Add , , Chr(i + 64), Chr(i + 64) Next End SubPrivate Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node) MsgBox "you have clicked node " & Node.Text End Sub
TreeView1_NodeClick TreeView1.Nodes("D") ' CITE BY KEY
TreeView1_NodeClick TreeView1.Nodes(3) ' CITE BY INDEX
End SubPrivate Sub Form_Load()
Dim i As Integer
For i = 1 To 20
TreeView1.Nodes.Add , , Chr(i + 64), Chr(i + 64)
Next
End SubPrivate Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
MsgBox "you have clicked node " & Node.Text
End Sub