[mefof]

ممكن يكون الموضوع قديم 
لكن الموضوع مهم للبعض فحبيث اشارك بهده الاجابة

هدا الكود خاص بتغيير لغة الجهاز من الانجليزي الى العربية

الاضافة التي  اضافها اخ  في الموضوع ممتازة جدا  لكن اريد توضيح نقطة

InputLanguage.CurrentInputLanguage = InputLanguage.InstalledInputLanguages().Item(1)

تفسير الكود:

InputLanguage.InstalledInputLanguages

ترجع قائمة بجميع لغات الإدخال المثبتة على النظام
(1)Item
يقوم باختيار اللغة الموجودة في الفهرس 1 (الثانية في القائمة). غالبًا تكون اللغة العربية إذا كانت مثبتة على الجهاز.
InputLanguage.CurrentInputLanguage
يتم استخدامه لتحديد لغة الإدخال الحالية للتطبيق

ملاحظات:

• إذا كنت تريد التأكد دائمًا من اختيار لغة معينة (مثل "ar-SA" للغة العربية السعودية)، يمكنك البحث في قائمة اللغات عن اللغة التي تريدها بدلًا من الاعتماد على الفهرس:
  

فهده طريقة الصحيحة لتغيير لغة الجهاز



For Each lang As InputLanguage In InputLanguage.InstalledInputLanguages
    If lang.Culture.Name = "ar-SA" Then ' اللغة العربية - السعودية
        InputLanguage.CurrentInputLanguage = lang
        Exit For
    End If
Next