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