LPARAMETERS node WITH this If node.Children > 0 activate screen ? Node.Child.Text lnIndex = Node.Child.Index do while lnIndex # Node.Child.LastSibling.Index ? .Nodes(lnIndex).Next.Text lnIndex = .Nodes(lnIndex).Next.Index enddo EndIf endwith