فارسي كردن نرم افزار در هنگام ورود

[swallow.pa]

سلام به همه
مي خوام هنگام ورود به نرم افزار حالت انتخاب ويندوز به فارسي تبديل شود و برعكس هنگام خروج به انگليسي كه كاربر آلت و شيفت رو نگيره
جستجو كردم چيزي نديدم
ممنون مي شم كمك كنيد

[hadgph]

از یکی از کدهای زیر هنگام لود فرم استفاده کن


'تغییر زبان فعلی کیبورد


Dim myDefaultLanguage As InputLanguage = InputLanguage.FromCulture(New System.Globalization.CultureInfo("Fa"))

' Changes the current input language to the default, and prints the new current language.
InputLanguage.CurrentInputLanguage = myDefaultLanguage


'تبدیل زبان صفحه کلید به فارسی در هنگام فراخوانی برنامه
Dim locInputType As New System.Globalization.CultureInfo("FA-IR")
Application.CurrentInputLanguage = InputLanguage.FromCulture(locInputType)

[swallow.pa]

ممنون دوست عزيز