Reza,
See if something similar to what is displayed below will help (here is how to set Metric Measurement System in Windows 98). Keep in mind that there can be different key combinations to get the very same Control Panel view and/or item in various Windows, and some settings require to reboot the PC. Also some settings require SET SYSFORMAT ON in VFP to use Windows settings instead of VFP settings.
oShell = CreateObject("WScript.Shell")
oShell.Run("CONTROL.EXE intl.cpl")
lcWindowTitle="Regional Settings Properties"
lnstart=SECONDS()
DO WHILE SECONDS()-lnstart <60 AND NOT oShell.AppActivate(lcWindowTitle)
WAIT WINDOW TIMEOUT 1.0 "Loading... Please, wait..."
ENDDO
IF oShell.AppActivate(lcWindowTitle)
oShell.SendKeys("+{TAB}{RIGHT}{TAB 8}M{TAB 2}{ENTER}")
ENDIF
oShell=null
>Hi all
>I want to change numeral style with programming.( Start -> Settings -> Control Panel -> Regional Settings -> Numbers -> Numeral Style ====> Context/Hindi/Arabic/... )
>
>Can anyone help me?
>Thanks