x=NEWOBJECT("myclass") * Test the object x.ISMSSend_CreateShortMsg x.ISMSSend_Send x.ISMSSend_GetLastError x.ISMSSend_Terminate x.ISMSSend_StartListeningEvents MESSAGEBOX('Finished') DEFINE CLASS myclass AS session OLEPUBLIC * Inherit ISMSSend class definition from dll IMPLEMENTS ISMSSend IN "C:\Program Files\Common Files\nokia\adapters\sms3as.dll" PROCEDURE ISMSSend_CreateShortMsg() AS VARIANT; HELPSTRING "method CreateShortMsg" MESSAGEBOX('method CreateShortMsg') ENDPROC PROCEDURE ISMSSend_Send(pSMS AS VARIANT) AS VOID; HELPSTRING "method Send" MESSAGEBOX('method Send') ENDPROC PROCEDURE ISMSSend_GetLastError() AS VARIANT; HELPSTRING "method GetLastError" MESSAGEBOX('method GetLastError') ENDPROC PROCEDURE ISMSSend_Terminate() AS VOID; HELPSTRING "method Terminate" MESSAGEBOX('method Terminate') ENDPROC PROCEDURE ISMSSend_StartListeningEvents() AS VOID; HELPSTRING "method StartListeningEvents" MESSAGEBOX('method StartListeningEvents') ENDPROC ENDDEFINEHTH