Private Sub Command1_Click()
Dim mynode As Node
For Each mynode In Me.TreeView1.Nodes
Me.Combo1.AddItem mynode.Text
Next
End Sub
Private Sub Form_Load()
Dim mynode As Node
Dim i As Long, j As Long
For i = 1 To 10
Set mynode = Me.TreeView1.Nodes.Add(, , , "class" + CStr(i))
mynode.Expanded = True
For j = 1 To 3
Me.TreeView1.Nodes.Add mynode, tvwChild, , "class" + CStr(i) + "' " + "sub" + CStr(j)
Next
Next
End Sub