شما این کد رو امتحان کنین، جواب می ده:
Dim Eng AsNew Globalization.CultureInfo("fa-ir")
InputLanguage.CurrentInputLanguage = InputLanguage.FromCulture(Eng)