I use the following code to set Russian/English layout in the forms like userlogin
Declare SHORT GetKeyboardLayoutName IN user32.dll STRING @lpR
lpR=space(10)
=GetKeyboardLayoutName(@lpR)
Declare SHORT ActivateKeyboardLayout IN user32.dll INTEGER HKL , INTEGER flags
If not '419' $lpR
=ActivateKeyboardLayout(1,0)
Endif
String variable lpn has language keyboard code
switch to different languages and look codes
MVP-2006-2011, PHD in Math and Physics ,
host of
www.foxclub.ru,
VFP lector at Interface and Microinform companies
Head science researcher of VNIIA Rosatom.