Class: | application |
LPARAMETERS tcForm *-- This function is meant to be used with a form class that *-- is derived from tsformretval which is defined in TSBASE.VCX *-- Notice how objects with LOCAL scope are automatically *-- released when the methods ends. LOCAL loForm, ; luRetVal loForm = CREATEOBJECT(tcForm) loForm.Show() luRetVal = loForm.uRetVal RETURN luRetVal