Copy Sub Class

Sering kita ingin mengcopy sub class yang ada, untuk kemudian di edit seperlunya. Misal untuk copy subclass option group 4 menjadi option group 3.

Program :

CREATE CLASSLIB Temp.vcx
ADD CLASS optgroup4 OF myclass.vcx TO Temp.vcx
RENAME CLASS optgroup4 OF Temp.vcx TO optgroup3
ADD CLASS optgroup3 OF Temp.vcx TO myclass.vcx
ERASE Temp.vc?