*Begin of codes SET SYSFORMATS ON DECLARE INTEGER GetLocaleInfo IN Win32API LONG Locale, ; LONG LCType, STRING @LpLCData, INTEGER cchData * GetSystemDefaultLCID retrieves the system default locale identifier DECLARE LONG GetSystemDefaultLCID IN Win32API dwLCID = GetSystemDefaultLCID() DECLARE SetLocaleInfo IN Win32API LONG Locale, LONG LCType, ; STRING @LpLCData *Locale = 1033 &&2048 && For English language. LpLCData = SPACE(255) && Address of buffer information. cchData = LEN(LpLCData) && Size of buffer, LpLCData. nretval = 0 && Number returned from API call. cOlddecimal= "" && Hold original decimal symbol. typedecimal = 0x16 && Monetary decimal separator.. typethousand = 0x17 && Monetary thousand separator.. * Obtain decimal symbol nretval = GetLocaleInfo(dwLCID, typedecimal, @LpLCData, cchData) IF nretval = 0 THEN =MESSAGEBOX ("Could not get information.") ELSE =MESSAGEBOX (LpLCData, 32, "decimal symbol") ENDIF RETURN setdecimal = SetLocaleInfo(dwLCID, typedecimal , "," ) setthounsand = SetLocaleInfo(dwLCID, typethousand , ".") nretval = GetLocaleInfo(Locale, typedecimal, @LpLCData, cchData) *update system and others app DECLARE INTEGER SendMessage IN USER32.DLL ; INTEGER HWND, ; INTEGER Msg, ; INTEGER wParameter, ; INTEGER LPARAMETER #DEFINE HWND_BROADCAST 0xFFFF #DEFINE WM_FONTCHANGE 0x001D #DEFINE WM_SETTINGCHANGE 0x001A =SendMessage(HWND_BROADCAST,WM_SETTINGCHANGE,0,0) RETURN * End of code