تغییر regional & language در vb6

[mamaliomega]

سلام...
من دارم یه برنامه مینویسم که میخوام بصورت فارسی باشه...(منوها_لیبل ها_....)
ولی اگر تنظیمات regional & language بر روی English (Untited States){default} باشه ... منو ها بصورت حروف ناخوانا درمیان...
بیشتر سیستم ها هم بر روی ENGLISH هستن.
اگه میشه یه کدی چیزی بدین که با اون بشه language سیستم رو تغییر داد...
راستی این تابعها رو هم میدم... اگه تونستین باهاش کار کنین توضیح بدید»:

Public Declare Function GetLocaleInfo Lib "kernel32" _
Alias "GetLocaleInfoA" _
(ByVal Locale As Long, _
ByVal LCType As Long, _
ByVal lpLCData As String, _
ByVal cchData As Long) As Long

Public Declare Function SetLocaleInfo Lib "kernel32" _
Alias "SetLocaleInfoA" _
(ByVal Locale As Long, _
ByVal LCType As Long, _
ByVal lpLCData As String) As Long


تا اونجایی که من فهمیدم کار تابع اولی اینه که Language فعلی رو نشون میده.
اما کار با SETLOCALINFO رو بلد نیستم.

این صفحه رو هم نگاه کنید»
http://vbnet.mvps.org/index.html?code/locale/setlocaleinfo.htm
اگه چیزی فهمیدین توضیح بدید.
در ضمن من نمیخوام DATE SETTINGS رو تغیر بدم... فقط هدفم تغییر LANGUAGE هست.
ممنون میشم کمکم کنید.:قلب:
بای

[mmssoft]

با این کد میتونید پنجره Regional and Lanuage Option رو باز کنید :

Dim dblReturn As Double
dblReturn = Shell("rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,0", 5)

[mamaliomega]

من که نمیخوام باز بکنه پنجرشو...
میخوام مقدار Language رو تغیر بده..
به هر حال ممنون