o=Createobject("myform") o.Show *Read Event && for non modal windows 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 EnddefineMartinJ
>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 >