SET CLASSLIB TO test additive
private oXC
oXC = CREATEOBJECT('test')
? what here for parameter 
m.error = oXC.Cursorfill()
If !m.error
*Wait WINDOW "Upload Failed.  Press a key..."
   =Messagebox(Message(),64)
Else
   brow
   oXC.RELEASE()
endif
return