منبع:https://barnamenevis.org/showpo...8&postcount=33

کد:


Public Shared Sub SetLanguage2English()
InputLanguage.CurrentInputLanguage = InputLanguage.FromCulture(New CultureInfo("en-US"))
End Sub

Public Shared Sub SetLanguage2Farsi()
InputLanguage.CurrentInputLanguage = InputLanguage.FromCulture(New CultureInfo("fa-IR"))
End Sub