LOCAL loForm, ltTime > > >SET CLASSLIB TO cReportManager.vcx ADDITIVE > > >loForm = CREATEOBJECT("Form") >loForm.ADDOBJECT("oRM", "ccntReportManager") > > >ltTime = SECONDS() > >DO WHILE SECONDS() < m.ltTime + 5 > ?? CHR(7) >ENDDO > > >loForm.REMOVEOBJECT("oRM") > > >*QUIT>
Local loForm, ltTime *SET CLASSLIB TO cReportManager.vcx ADDITIVE loForm = CREATEOBJECT("myForm") loForm.DoSomething() loForm.DoOtherThing() loForm.Release() Define class myForm as Form Add object oRM as "ccntReportManager" Procedure DoSomething ltTime = SECONDS() Do WHILE SECONDS() < m.ltTime + 5 ?? "CHR(7)" Enddo Endproc Procedure DoOtherThing() Endproc EnddefineCetin