/*
 * $Id: oletst3.bas 14646 2010-05-31 11:25:39Z vszakats $
 */

/*
 * Harbour Project source code:
 *    demonstration/test code for OLE server client which connects to
 *    Harbour OLE server working like xHarbour.com OLE servers described at
 *    http://xharbour.com/index.asp?page=add_on_oleserver&show_sub=7&show_i=1
 *    This client code is based on xHarbour.com client example published on
 *    above WWW page.
 */


DIM oObject

SET oObject = CreateObject( "MyOleServer" )

MsgBox oObject.MyFunc( "Hello", 123 )

MsgBox oObject.Property1
