If e.Node.Level = 1 Then For Each nd As WinForm.TreeNode In e.node.Nodes nd.Expand For Each cnd As WinForm.TreeNode In nd.Nodes cnd.Expand Next NextEnd If