FUNCTION ShowBrowserForm(tcAlias, tcHeadings, tnWidth, tnHeight)
LOCAL loForm AS Form, loGrid AS Grid, lnRtnValue
loForm = CREATEOBJECT("aBrowseForm")
lnRtnValue = 0
WITH loForm
loGrid = .grdList
loGrid.RecordSource = tcAlias
.cAlias = tcAlias
IF TYPE("tcHeadings") = 'C'
.SetHeadings(tcHeadings)
ENDIF
IF TYPE("tnWidth") = 'N' AND tnWidth > 0
.SetWidth(tnWidth)
ENDIF
IF TYPE("tnHeight") = 'N' AND tnHeight > 0
.SetHeight(tnHeight)
ENDIF
.AutoCenter = .T.
.Show()
ENDWITH
RELEASE loForm
lnRtnValue = _Screen.nRTN_Value1
RETURN lnRtnValue