FOR i=1 TO thisform.list1.ListCount IF ALLTRIM(thisform.list1.list(i)) == ALLTRIM(this.nodes.item(Node.key).FullPath) thisform.list1.RemoveItem(i) thisform.list1.refresh EXIT endi endf
>IF this.nodes.item(Node.key).Checked > ThisForm.List1.AddItem(this.nodes.item(Node.key).FullPath) > thisform.list1.refresh >ELSE > FOR i=1 TO thisform.list1.ListCount > IF ALLTRIM(thisform.list1.listitem(i))=ALLTRIM(this.nodes.item(Node.key).FullPath) > thisform.list1.RemovelistItem(i) > thisform.list1.refresh > endi > endf >ENDIF>