ник: ddi
я по другому зделал
Option Compare Database
Public Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long
Public Const KLF_ACTIVATE = 1
LoadKeyboardLayout "00000419", KLF_ACTIVATE ' русская
японская:)