Change this code as below and it should not give you the problem (becasue nodeptr will be released at the end of the code) ...

local childnodeptr, tkey, rch, nodeptr

nodeptr = thisform.oletreeview.selecteditem

childnodeptr = m.nodeptr.child
rch = m.nodeptr.children

do while !isnull(m.childnodeptr)
	append blank
	replace csrkey with m.childnodeptr.key, ch with m.childnodeptr.children
	select csrtable
	childnodeptr = m.childnodeptr.next
enddo

>I tried removing some codes in my form, and see if who's giving me the problem.
>
>When I removed the code below, thisform.release releases my form. So I guess this is it?
>
>

>nodeptr = thisform.oletreeview.selecteditem
>
>local childnodeptr, tkey, rch
>childnodeptr = m.nodeptr.child
>rch = m.nodeptr.children
>
>do while !isnull(m.childnodeptr)
>	append blank
>	replace csrkey with m.childnodeptr.key, ch with m.childnodeptr.children
>	select csrtable
>	childnodeptr = m.childnodeptr.next
>enddo
>