I'm using the subclass_it.prg but it is having problem to close the Class Designer after each Create Class command. I have tried to modify the subclass_it.prg but it still won't work. The coding looks like this:

scan

IF WEXIST("PROPERTIES")
RELEASE WINDOW "Properties"
ENDIF

IF WEXIST("FORM CONTROLS")
RELEASE WINDOW "FORM CONTROLS"
ENDIF

KEYBOARD "{Ctrl+W}"

create class....

endscan

I have also tried to make sure that the activate window is the class designer by adding the following codings before the KEYBOARD statement:

x=wontop()
if !empty(x)
activate window (x)
endif


Thank you for any help,

Peter