>* For the ASP Request Object passed as param to a COM Server
>cVal = oObj.form("txtBox").Item()


oObj = createobject("myform")
cVal = oObj.form("txtBox").Item()
wait window cVal

define class myform as custom olepublic
dimension form[1]
add object txtBox as mytext
function form_access(nIndex1)
	return evaluate("this." + nIndex1)
endfunc
enddefine

define class mytext as custom olepublic
function item
	return "Hello world."
endfunc
enddefine