coclass 'myclass'

MYCLASS=: 0 : 0
pc myclass;
rem form end;
)

create=: 3 : 0
wd MYCLASS
formhwnd=: wd'qhwndp'
NB. initialize form here
wd'pshow'
)

destroy=: 3 : 0
wd 'pclose'
codestroy''
)

myclass_close=:destroy

formselect=: 3 : 'wd''psel '',formhwnd'
