<br />
<b>Notice</b>:  Undefined offset: 2 in <b>/home2/icentarb/public_html/icentar/classes/class.permissions.php</b> on line <b>735</b><br />
Private Sub Command1_Click()
   Dim LCID As Long
   Dim sNewFormat As String
   
   LCID = GetSystemDefaultLCID()
   
   'European #1
   'FormatSymb = "€"
   'FormatDec = ","
   'FormatThou = "."
   'FormatSDate = "d.MM.yy"
   'FormatLDate = "d MMMM yyyy"
    
   'European #2
   FormatSymb = "KM"
   FormatDec = "."
   FormatThou = ","
   FormatSDate = "dd.MM.yy"
   FormatLDate = "dd.MMMM.yyyy"
    
     'set the new long date format
      Call SetLocaleInfo(LCID, LOCALE_SCURRENCY, FormatSymb)
      Call SetLocaleInfo(LCID, LOCALE_SMONDECIMALSEP, FormatDec)
      Call SetLocaleInfo(LCID, LOCALE_SMONTHOUSANDSEP, FormatThou)
      Call SetLocaleInfo(LCID, LOCALE_SLONGDATE, FormatLDate)
      Call SetLocaleInfo(LCID, LOCALE_SSHORTDATE, FormatSDate)
     
     'send a system notification
      Call PostMessage(HWND_BROADCAST, WM_SETTINGCHANGE, 0&, ByVal 0&)