I use this function to add nodes

VB Code:
  1. Public Function AddTree(ByVal Name, ByVal Capt, ByVal PC)

  2.  
  3. Dim NodeC As Variant

  4.  

  5.     Select Case PC

  6.      

  7.         Case "P"

  8.             

  9.             Set NN = TreeSetup.Nodes.Add(, , Name, Capt)

  10.              

  11.         Case "C"

  12.  
  13.             NodeC = NodeC & NodeC

  14.             Set NN = TreeSetup.Nodes.Add(Name, tvwChild, NodeC, Capt)

  15.              

  16.     End Select

  17.      

  18.  End Function

and i have these for my Nodes:

VB Code:
  1. AddTree "Main", "Global", "P"

  2.  
  3. AddTree "Main1", "Battle.net", "P"

  4. AddTree "Main1", "Login", "C"

  5. AddTree "Main1", "Options", "C"

  6.  
  7. AddTree "Main2", "Bot Options", "P"

  8. AddTree "Main2", "Anti-Idle", "C"

  9. AddTree "Main2", "Filters", "C"

  10. AddTree "Main2", "GUI", "C"

Code:
But it ends up Showing like

Global
          [-]Battle.net
                    Login
                    Options
          [+]Bot Options
                    Anti-Idle
                    Filters
                    GUI


But i want it Like

[-]Global
          [+]Battle.Net
          [-]Bot Options
                    Anti-Idle
                    Filters
                    GUI
I want to be able to Collapse Global, but it won't let me >_<!!!!