oForm = createobject('myform') oForm.Show(1) define class myform as form add object mybutton as commandbutton func getsomething return 1 + '' proc error lparam lnError, cMethod, nLine return to click 'error' proc mybutton.click wait window thisform.getsomething() wait window 'Works' endproc enddefineMeanwhile, this works (in VFP6):
on error proc3() do proc1 proc proc1 wait window proc2() return func proc2 return 1 + '' func proc3 return to proc1 'Yo!'