سلام
نمي دونم منظورتون رو درست متوجه شدم يا خير ولي با فراخواني تابع زير مي تونيد بدون ALT+SHIFT فارسي تايپ کنيد
Public
Sub SetInputLanguage(ByVal lang AsString)
Dim curLang As InputLanguage = InputLanguage.DefaultInputLanguage
If lang = "Farsi"Then
ForEach inpLang As InputLanguage In InputLanguage.InstalledInputLanguages
If inpLang.LayoutName = "Farsi"Then
curLang = inpLang
EndIf
Next
InputLanguage.CurrentInputLanguage = curLang
Else
InputLanguage.CurrentInputLanguage = InputLanguage.DefaultInputLanguage
EndIf
EndSub
Call SetInputLanguage("Farsi")