Hi,
Change SET PROCEDURE TO c:\yourdirectory\moh additive and see what happens.

yourdirectory = where you saved the file.


>hello,
>
>i create modi comm moh
>i insert your code at myprg as...
>

>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
>

>at init myform i put (SET PROCEDURE TO moh additive)
>i get error message(File "moh.prg" does not exist )
>
>thanks.
>regards