زبان فارسی هنگام لود شدن صفحه

[silverado]

سلام چطور میشه زبان ویندوز رو فارسی کرد وقتی که فرم بالا میاد

[محسن واژدی]

سلام،
این دستور رو در فرم برنامه تون کپی کنین:


Private Const FarsiLng$ = "00000429"

Private Declare Function LoadKeyboardLayout _
Lib "user32" _
Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, _
ByVal flags As Long) As Long

Private Sub Form_Load()

LoadKeyboardLayout FarsiLng$, 1 'chng kboard lng to farsi
End Sub

موفق باشید