Dim tr As WinForm.TreeViewDim td As WinForm.TreeNodetr = Forms("窗口1").Controls("TreeView1")td = tr.Nodes(0)
If td.Nodes.Count > 0 Then
MessageBox.show("他有孩子")
End If