چطوری زبان برنامه رو عوض کنم؟

[Ehsansh]

سلام.
از طریق Localized=True و تغییر زبان از طریق Language 2 زبان رو برای برنامم تعریف کردم. اما نمیدونم چطوری میشه با کلیک کردن دکمه زبان رو تغییر داد.
یک sample هم دارم که بین زبانهای مختلف سوییچ میکنه اما فکر کنم من کد زبان فارسی رو ندارم.
کسی میتونه کمکی کنه؟
این کد مربوط به Sample من هست:
Select Case Me.ListBox1.SelectedIndex
Case 0 : Me.ChangeLanguage("en")
Case 1 : Me.ChangeLanguage("es-ES")
Case 2 : Me.ChangeLanguage("sv-SE")
End Select
برای زبان فارسی FA و Persian رو زدم قبول نکرد.

[hosein320]

Dim Persian_Lang As New Globalization.CultureInfo("fa-IR")
InputLanguage.CurrentInputLanguage = InputLanguage.FromCulture(Persian_Lang)

[Ehsansh]

Dim Persian_Lang As New Globalization.CultureInfo("fa-IR")
InputLanguage.CurrentInputLanguage = InputLanguage.FromCulture(Persian_Lang)

بازم نشد! خطا نمیده نمیدونم مشکل از چیه. این کد رو میشه ببینی چطوری باید درستش کرد؟ یک sample خیلی ساده هست.

[Ehsansh]

یعنی یه این کاره نبود مشکل این برنامه 2 خطی رو حل کنه؟