o=Createobject("myform") o.Show Read Event Wait Window "This wait won't run" Return Define Class myform As Form WindowType=1 Add Object btn As mycommand Enddefine Define Class mycommand As CommandButton Height=30 Width=100 Caption="Click Me" Procedure Click Thisform.Release Clear Events Endproc Enddefine