Lparameter node Local oNode oNode = node.Child With .oleList.Object.ListItems .Clear() Do While Type( "oNode" ) == "O" And !IsNull( oNode ) itmX = .Add(, oNode.Key, oNode.Text, oNode.Image, oNode.Image) oNode = oNode.Next EndDo EndWithIf I comment this code block, when I close the form I have not problems. If I run this code when I click a node in the TreeView, when I close the form, it is remaining on screen and I need to write CLEAR ALL at command window to release the form.