hi all,

i need to make code under to com dll,
i see at UT ..example, but i have no idea how or (where) i can add the code under .

define class testclass as cuistom olepublic
       name="testclass"
       function testmethod
       return "it works?"
enddefine

oCOM=createobject('myfirstcom.testclass') 
?ocom.testmethod()

this code....

PROCEDURE SetKeyboard
 LPARAMETER lcKeyboardcode
 IF VARTYPE(lcKeyboardcode)<>'C'
      RETURN
 ENDIF
 IF EMPTY(lcKeyboardcode)
      RETURN
 ENDIF
 LOCAL pwSzklid
 pwSzklid = SPACE(8)
 DECLARE INTEGER GetKeyboardLayoutName IN user32.DLL STRING @
 geTkeyboardlayoutname(@pwSzklid)
 DECLARE INTEGER ActivateKeyboardLayout IN user32.DLL INTEGER, INTEGER
 IF ATC(lcKeyboardcode, pwSzklid)=0
      acTivatekeyboardlayout(1,0)
 ENDIF
 RETURN
ENDPROC

thanks