تغيير اللغه

اخى في general قم بوضع الاتى لاستدعاء المكتبة

Private Declare Function GetKeyboardLayout Lib "user32" (ByVal dwLayout As Long) As Long
Private Declare Function ActivateKeyboardLayout Lib "user32" (ByVal HKL As Long, ByVal flage As Long) As Long

و لأنى سأفترض انك تريد تغيير اللغة في text box و ليكن text1 فستكتب في الحدث got focus

Private Sub Text1_GotFocus()
N = GetKeyboardLayout(0)
If N = 67699721 Then
N = ActivateKeyboardLayout(1, 0)
Text1.Alignment = 1
Text1.RightToLeft = True
End If
End Sub