*Node.click *** OLE Control Event *** 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 lnIndent = 0 lnIndex = Node.Index DO while lnIndex # Node.Root.Index lnIndex = .Nodes(lnIndex).Parent.Index lnIndent = lnIndent + 1 ENDDO ENDWITH node.ensurevisibleCetin