Article ID: 171526
Article Last Modified on 11/18/2003
170365 INFO: Visual Studio 97 Service Packs - What, Where,and Why
171554 INFO: Visual Basic 5.0 Fixes in Visual Studio 97 Service Pack 2
Private Sub Command1_Click()
TreeView1.Enabled = Not TreeView1.Enabled
End Sub
Private Sub Form_Load()
TreeView1.LineStyle = tvwRootLines
'Add Node objects.
Dim nodX As Node ' Declare Node variable.
'First node with 'Root' as text.
Set nodX = TreeView1.Nodes.Add(, , "r", "Root")
'Create three child Nodes of Node 1 ("Root").
Set nodX = TreeView1.Nodes.Add("r", tvwChild, "child1","Child")
Set nodX = TreeView1.Nodes.Add("r", tvwChild, "child2","Child")
Set nodX = TreeView1.Nodes.Add("r", tvwChild, "child3","Child")
End Sub
Keywords: kbbug kbfix kbvbp500sp2fix kbvs97sp2fix KB171526