doformretval Method
Class: application
Expand/Collapse source code of procedure doformretval Source Code
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