[سعود الشامان]

كود :

Public Class Form1


   Dim myCurrentLanguage As InputLanguage = InputLanguage.CurrentInputLanguage

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

       TextBox1.Text = myCurrentLanguage.Culture.DisplayName 'لعرض النتيجة بالعربي

   End Sub


   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

       TextBox1.Text = myCurrentLanguage.Culture.EnglishName ' لعرض النتيجة بالإنجليزي

   End Sub

End Class

[سعود الشامان]

جزاك الله خير اخوي سعود
و بارك الله فيك
شكرا جزيلا

وبآرك الله بكك ورعاك وسدد خطاك

[عبدالله الصافي]

الكود يعطي نتيجة دائمه أن لغة الكتابة الحالية هي الانجليزي

مهما غيرت اللغة فالنتيجة واحدة