[عبدالله الدوسري]

كود :

       Dim LangName As String = btLangug.Text
       For Each inp As InputLanguage In InputLanguage.InstalledInputLanguages
           If inp.Culture.TwoLetterISOLanguageName.ToLower = LangName.ToLower Then
               InputLanguage.CurrentInputLanguage = inp
           End If
       Next