code นี้เป็นของอ.BADMan เคยให้เป็นตัวอย่างไว้
**********************************
อันนี้วางไว้ที่ โมดูลครับ ตั้งชื่ออะไรก็ได้เช่น ChangeKeyboardLanguage
Option Compare Database
Option Explicit

Public Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long
***********************************
อันนี้ผมนำมาไว้ที่ Form
Private Sub txtPassword_GotFocus()
Dim Res As Long 'การเปลี่ยนภาษา En
Res = LoadKeyboardLayout("0000041E", 1)

End Sub
...................................................................
Private Sub txtUserName_GotFocus()
Dim Res As Long 'การเปลี่ยนภาษาไทย
Res = LoadKeyboardLayout("00000409", 1)
End Sub
.............................................................
คุณ zam อาจจะนำไปใช้ตอนเป็น Form ได้
เช่น
Private Sub Form_Open(Cancel As Integer)
Dim Res As Long 'การเปลี่ยนภาษาไทย
Res = LoadKeyboardLayout("0000041E", 1)

End Sub
ขออนุญาติอ.BADMan ครับ เห็นอ.บอกว่าช่วงนี้กำลังติดงาน

ขอบพระคุณอย่างสูงทำได้แล้ว เยี่ยมมาก!!