Option Explicit

Const LANG_EN_US As String = "00000409"
Const LANG_RU As String = "00000419"
Const KLF_ACTIVATE As Long = &H1
Const KL_NAMELENGTH =  9 
Const VK_CAPITAL = &H14

Private Type KeyboardBytes
     kbByte( 0  To  255 ) As Byte
End Type

Private Declare Function GetKeyboardLayoutName Lib "user32" Alias "GetKeyboardLayoutNameA" (ByVal pwszKLID As String) As Long
Private Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long
Private Declare Function GetKeyboardState Lib "user32" (kbArray As KeyboardBytes) As Long
Private Declare Function SetKeyboardState Lib "user32" (kbArray As KeyboardBytes) As Long

Dim strCurrentKeybLayoutName$, CurrentKeyboardState As KeyboardBytes, lngCurrentCapitalState&

Private Sub Form_Paint()
    Dim strName$, strKeybLayout$, strLocId$
    Me.Cls
    strName = String(KL_NAMELENGTH,  0 )
    strName = Left(strName, Len(strName) -  1 )
    GetKeyboardLayoutName strName
    Me.Print "Keyboard layout name: " + strName
    strKeybLayout = LANG_RU
    strLocId = LoadKeyboardLayout((strKeybLayout & Chr( 0 )), KLF_ACTIVATE)
End Sub

Private Sub Text1_GotFocus()
'Get the keyboard loayout
    strCurrentKeybLayoutName = String(KL_NAMELENGTH,  0 )
    strCurrentKeybLayoutName = Left(strCurrentKeybLayoutName, Len(strCurrentKeybLayoutName) -  1 )
    GetKeyboardLayoutName strCurrentKeybLayoutName
'Get the current keyboard state
    GetKeyboardState CurrentKeyboardState
    lngCurrentCapitalState = CurrentKeyboardState.kbByte(VK_CAPITAL)
'Set the keyboard layout state to russian
    LoadKeyboardLayout LANG_RU, KLF_ACTIVATE
'Set the CAPITAL state ON
    CurrentKeyboardState.kbByte(VK_CAPITAL) =  1 
    SetKeyboardState CurrentKeyboardState
End Sub

Private Sub Text1_LostFocus()
'Restore keyboard layout and capital state
    LoadKeyboardLayout strCurrentKeybLayoutName, KLF_ACTIVATE
    CurrentKeyboardState.kbByte(VK_CAPITAL) = lngCurrentCapitalState
    SetKeyboardState CurrentKeyboardState
End Sub