How can I change the key board layout with codes,

kpsukb = SPACE(8)
DECLARE INTEGER  ;
        GetKeyboardLayoutName IN  ;
        user32.DLL STRING
= getkeyboardlayoutname(kpsukb)
DECLARE INTEGER  ;
        ActivateKeyboardLayout IN  ;
        user32.DLL INTEGER,  ;
        INTEGER
IF ATC("409", kpsukb) = 0
     = activatekeyboardlayout(1,  ;
       0)
ENDIF

I am doing with But it is working like a toggle. But i want change my keyboard which i want language. I want eng/arabic key boad(may be any number or sign for each key board.
thanks