كمك به يه تازه وارد

سلام دوستان گلم
من دو تا سوال دارم .سوال اول اينكه ميخوام وقتي وارد يك textbox ميشم پيشفرض فارسي باشه(يعني shift+alt رو ديگه نزنم تا فارسي شه)سوال دوم اينه كه وقتي ميخوام وارد فرمي بشم عكس مخصوص به اون فرم نمايش داده بشه .

برای فارسی این کد رو بنویس

کد:

---


PublicClass LoginForm
PrivateDeclareFunction loadkeyboardlayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszkild AsString, ByVal flags AsInteger) AsInteger
PrivateSub LoginForm_Load(ByVal sender AsObject, ByVal e As System.EventArgs) HandlesMe.Load

Dim a AsInteger
a = loadkeyboardlayout("00000429", 1)
EndSub


---

فارسی :

کد:

---

InputLanguage.CurrentInputLanguage = InputLanguage.FromCulture(New System.Globalization.CultureInfo("Fa"))

---

انگلیسی :

کد:

---

InputLanguage.CurrentInputLanguage = InputLanguage.FromCulture(New System.Globalization.CultureInfo("En"))

---