در تابع LoadKeyboardLayout ثابتي براي زبان فارسي نيست!!!....

چجوري ميتونيم يه ثابت زبان فارسي براي تابع تعيين کنيم؟؟؟
ثابتهايي که داره فقط اينها هستند:

کد:

---

Const LANG_NL_STD As String = "00000413"
Const LANG_EN_US As String = "00000409"
Const LANG_DU_STD As String = "00000407"
Const LANG_FR_STD As String = "0000040C"

---

کد:

---

Public Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal Flags As Long) As Long


Private Sub Command1_Click()
    '-----برای فارسی کردن----
    LoadKeyboardLayout "00000401", 1
    LoadKeyboardLayout "00000429", 1

End Sub

---

خيلي ممنون _cracki_ جون
کمک کردي

یه کلید رجیستری باید خونده بشه بعد عددی که اون تو هست ( که نشانه شماره مخصوص زبان فارسی هست ) باید بکار گرفته بشه

من کدشو داشتم اما چون فعلا وی بی کار نمیکنم باید برم سراغ آرشیوم تا ببینم دارمش یا نه
اگه بود براتون می زارم