Dim tr As WinForm.TreeViewtr = Forms("窗口1").Controls("TreeView1")tr.Nodes(tr.Nodes.Count-1).Expand()
http://www.foxtable.com/help/topics/0910.htm