تحويل لغة لوحة المفاتيح الى العربية؟

يابظرميت بيه.. لك تحياتى

داخل Module أكتب الكود التالى

Public Declare Function LoadKeyboardLayout Lib "user32" _
        Alias "LoadKeyboardLayoutA" (ByVal pwszkKLID As String, ByVal _
        flags As Long) As Long
Public S

ثم إستخدم هذا الكود داخل كود الحدث الذى تريد أن يتم فيه تبديل اللغة :

If S = LoadKeyboardLayout("00000401", 1) Then
     S = LoadKeyboardLayout("00000409", 1)
Else
     S = LoadKeyboardLayout("00000401", 1)
End If

abduljawaad باشا.....شكرا لأفضالك(yess)

وأنا كذلك اقدم لك شكري وتقديري فقد أفدتني وفقك الله