=ChangeParent("myform.scx", "myformclass", "c:\library\mylib.vcx")

function ChangeParent
lparameters tcForm, tcNewParentClass, tcNewParentLocation
select  0 
use (m.tcForm) exclusive
replace 
   class with m.tcNewParentClass,;
   classloc with m.tcNewParentLocation;
for baseclass = "form" 
use
endfunc

( 1 ) use (m.tcForm) exclusive
( 2 ) replace ; 
( 3 )   class with m.tcNewParentClass,;
( 4 )   classloc with m.tcNewParentLocation;
( 5 ) for baseclass = "form"