Aşağıdaki örnek kodu deneyiniz.
Private Sub Form_Load()
Dim nodX As Node
Set nodX = TreeView1.Nodes.Add(, , "A", "Dede")
Set nodX = TreeView1.Nodes.Add("A", tvwChild, "B", "Oğul")
Set nodX = TreeView1.Nodes.Add("B", tvwChild, "C", "Torun")
nodX.EnsureVisible
End Sub
Private Sub TreeView1_NodeClick(ByVal Node As ComctlLib.Node)
Dim msg As String
Select Case Node.Key
Case "A"
msg = "Bu TreeView nesnesindeki en üst düzey yetkilidir.Tüm altbirimler bu kişiye bağlıdır."
Case "B"
msg = "Benim 'Babam' A Anahtarı oğlum ise C Anahtarıdır.Ayrıca oğlum da herşeyi benden izin alıp yapar."
Case "C"
msg = "Ben buraların en küçük efendisiyim.Büyüyünce herşeyi ben yönetçem."
End Select
MsgBox msg, vbExclamation, Node.Text & " : " & Node.Index & ". Sıra"
End Sub