Article ID: 194033
Article Last Modified on 5/13/2003
Option Explicit
Private Sub Form_Load()
TreeView1.Width = 2200 ' so that node 4 is unseen
TreeView1.Indentation = 750
TreeView1.Nodes.Add , , , "Node1"
TreeView1.Nodes.Add 1, tvwChild, , "Node1-1"
TreeView1.Nodes.Add 2, tvwChild, , "Node1-1-1"
TreeView1.Nodes.Add 3, tvwChild, , "Node1-1-1-1"
TreeView1.Nodes(1).Expanded = True
TreeView1.Nodes(2).Expanded = True
TreeView1.Nodes(3).Expanded = True
DoEvents
Debug.Print TreeView1.Nodes(4).Visible
End Sub
Additional query words: kbDSupport kbDSD kbVBp kbVBp500 kbVBp600 kbCtrl kbTreeView
Keywords: kbprb KB194033