الكود هكذا افضل
#If Win64 Then
Private Declare PtrSafe Function ActivateKeyboardLayout Lib "user32" (ByVal HKL As LongPtr, ByVal Flag As Long) As LongPtr
#Else
Private Declare Function ActivateKeyboardLayout Lib "user32.dll" (ByVal HKL As Long, Flag As Long) As Long
#End If
Public Const AR = 1025
Public Const EN = 1033
Public Function changeToAr()
Call ActivateKeyboardLayout(AR, True)
End Function
Public Function changeToEn()
Call ActivateKeyboardLayout(EN, True)
End Function
تغييير اللغة.mdb