Dim z As New Globalization.CultureInfo("fa-ir") InputLanguage.CurrentInputLanguage = InputLanguage.FromCulture(z)