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