LISTING 1: Code for SetThreadLanguage API Function

Enum clLanguages                                  ' NOTE: Not all languages are included! 
    eAFRIKAANS = &H436    '"0436"="af;Afrikaans"
    eALBANIAN = &H41C     '"041C"="sq;Albanian"
    eARABIC = &H1         '"0001"="ar;Arabic"
    eBASQUE = &H42D       '"042D"="eu;Basque"
    eBULGARIAN = &H402    '"0402"="bg;Bulgarian"
    eBELARUSIAN = &H423   '"0423"="be;Belarusian"
    eCATALAN = &H403      '"0403"="ca;Catalan"
    eCHINEZE = &H4        '"0004"="zh;Chinese"
    eCROATIAN = &H41A     '"041A"="hr;Croatian"
    eCZECH = &H405        '"0405"="cs;Czech"
    eDANISH = &H406       '"0406"="da;Danish"
    eDUTCH = &H413        '"0413"="nl;Dutch (Standard)"
    eENGLISH = &H409      '"0409"="en-us;English (United States)"
    eESTONIAN = &H425     '"0425"="et;Estonian"
    eFAEROESE = &H438     '"0438"="fo;Faeroese"
    eFARSI = &H429        '"0429"="fa;Farsi"
    eFINNISH = &H40B      '"040B"="fi;Finnish"
    eFRENCH = &H40C       '"040C"="fr;French (Standard)"
    eGAELIC = &H43C       '"043C"="gd;Gaelic"
    eGERMAN = &H407       '"0407"="de;German (Standard)"
    eGREEK = &H408        '"0408"="el;Greek"
    eHEBREW = &H40D       '"040D"="he;Hebrew"
    eHINDI = &H439        '"0439"="hi;Hindi"
    eHUNGARIAN = &H40E    '"040E"="hu;Hungarian
    eICELANDIC = &H40F    '"040F"="is;Icelandic"
    eINDONESIAN = &H421   '"0421"="in;Indonesian"
    eITALIAN = &H410      '"0410"="it;Italian (Standard)"
    eJAPANESE = &H411     '"0411"="ja;Japanese"
    eKOREAN = &H412       '"0412"="ko;Korean"
    eLATVIAN = &H426      '"0426"="lv;Latvian"
    eLITHUANIAN = &H427   '"0427"="lt;Lithuanian"
    eMACEDONIAN = &H42F   '"042F"="mk;Macedonian"
    eMALAYSIAN = &H43E    '"043E"="ms;Malaysian"
    eMALTESE = &H43A      '"043A"="mt;Maltese"
    eNORWEGIAN = &H414    '"0414"="no;Norwegian (bokmal)"
    ePOLISH = &H415       '"0415"="pl;Polish"
    ePORTUGESE = &H816    '"0816"="pt;Portuguese (Standard)"
    eROMAINAN = &H418     '"0418"="ro;Romanian"
    eRUSSIAN = &H419      '"0419"="ru;Russian"
    eSERBIAN = &H81A      '"081A"="sr;Serbian (Latin)"
    eSERBIANC = &HC1A     '"0C1A"="sr;Serbian (Cyrillic)"
    eSLOVAK = &H41B       '"041B"="sk;Slovak"
    eSLOVENIAN = &H424    '"0424"="sl;Slovenian"
    eSPANISH = &H40A      '"040A"="es;Spanish"
    eSWEDISH = &H41D      '"041D"="sv;Swedish"
    eTHAI = &H41E         '"041E"="th;Thai"
    eTURKISH = &H41F      '"041F"="tr;Turkish"
    eUKRAINIAN = &H422    ''"0422"="uk;Ukrainian"
End Enum
Declare Function SetThreadLocale Lib "kernel32" (ByVal Locale As clLanguages) As Long