اولا اضبط لغة الكتابة في خصائص مربع النص = النظام
ثم الصق هذه الجمل داخل محرر النموذج
باعتبار combo هو مربع التحرير ورقم واحد هو قيمة المربع ويمثل اللغة الانجليزية و 2 يمثل اللغة العربية
Option Compare Database
Private Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long
Private Sub combo_AfterUpdate()
If combo.Value = 1 Then
Call LoadKeyboardLayout("00000409", 1)
ElseIf combo.Value = 2 Then
Call LoadKeyboardLayout("00000401", 1)
End If
End Sub
لا حظ انه يمكنك اضافة العديد من اللغات