Private Sub cmdCollapseNodes_Click()
On Error GoTo BYE
Treeview1.Visible = False' Speeds up process to hide control
Me.MousePointer = vbHourglass
For i = 1 To Treeview1.Nodes.Count
    Treeview1.Nodes.Item(i).Expanded = False
Next
Treeview1.Nodes.Item(1).EnsureVisible' Repositions at the top
Treeview1.Visible = True' Can make visible when done
Me.MousePointer = vbNormal
BYE:
End Sub