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")
* invoke Control Panel, Regional Settings
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)
        * Set Measurement System to Metric
	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