تنفيذ شرط عند تغير لغة الويندوز

Private Sub Form1_InputLanguageChanged(sender As Object, e As InputLanguageChangedEventArgs) Handles MyBase.InputLanguageChanged

'your code here

MessageBox.Show("The Language has been changed to :" + InputLanguage.CurrentInputLanguage.LayoutName)

End Sub

شكرا اخى ولكنى اريد تنفيذ الشرط إذا كانت لغة الويندوز هى العربية او العكس

يعنى مثلاً

if (windows Language) = ar Then

Condition

Else

End if

السلام عليكم ورحمة الله وبركاته

Public Sub detectlanguage()
        Dim detectlang As InputLanguage = InputLanguage.CurrentInputLanguage
        If (detectlang.Culture.EnglishName).Contains("Ar") Then
            'do something
        Else
            'do something
        End If
    End Sub

 Private Sub Form1_InputLanguageChanged(ByVal sender As Object, ByVal e As InputLanguageChangedEventArgs) Handles MyBase.InputLanguageChanged
        detectlanguage()
    End Sub