Private Declare PtrSafe Function ActivateKeyboardLayout Lib "user32.dll" (ByVal mylanguage As Long, flag As Boolean) As Long
Private Const ar = 1025
Private Const Eng = 1033
Private Sub changeToAr(Cancel As Integer)
Call ActivateKeyboardLayout(ar, True)
End Sub
Private Sub changeToEn(Cancel As Integer)
Call ActivateKeyboardLayout(Eng, True)
End Sub