Dim tree0 As TreeView
Static intLastNode As Integer
Set tree0 = Me.xTree.Object
If intLastNode <> 0 Then
Debug.Print GetParentIndex(Node), intLastNode
If GetParentIndex(Node) <> intLastNode Then
Me.xTree.Nodes(intLastNode).Expanded = False
End If
End If