PROCEDURE QueryUnload
lParameters lByPassRelease
Local lRetVal
lRetVal = .T.
*/ Check stuff here and store result to lretval
If NOT lRetVal
NODEFAULT
RETURN .F.
Endif
ENDPROC
PROCEDURE Release
lParameters lBypassQueryUnload
IF !This.QueryUnload()
NoDefault
RETURN .F.
Endif
ENDPROC
Let QueryUnload do all of the checking for OkToRelease and return a value telling the Release what the result was. BTW, this one also works with RELEASE oFormVar.