Hi, this similar scenario that I posted recently but this one is closer to
what I need. This is a treeview on expand event.

What I need is:

If Node.key = "A1" Then

TreeView1.Nodes(NOT EQUAL TO "A1").Expanded = False

End If

I wanted my treeview to open each node one at a time here.

Thank you very much

hi G,

g wrote:
> I wanted my treeview to open each node one at a time here.
Set the SelSingel property of your tree view and use this:

--
Private Sub ShowNode(AKey As String)

m_TreeView.Nodes.Item(AKey).Selected = True
m_TreeView.Nodes.Item(AKey).EnsureVisible

End Sub
--


mfG
--> stefan <--