----------
Private Sub Form_Load()
Dim nodX As Node
Set nodX = TreeView1.Nodes.Add(,,,"Root")
Set nodX = TreeView1.Nodes.Add(1,tvwChild,,"Dir1")
Set nodX = TreeView1.Nodes.Add(2,tvwChild,,"Dir2")
Set nodX = TreeView1.Nodes.Add(3,tvwChild,,"Dir3")
Set nodX = TreeView1.Nodes.Add(4,tvwChild,,"Dir4")
nodX.EnsureVisible '显示全部节点。
TreeView1.Style = tvwTreelinesText '样式 4。
End Sub
Private Sub TreeView1_NodeClick(ByVal Node As Node)
MsgBox Node.FullPath
End Sub