10      Const ANSI_CHARSET = 0
20      Const DEFAULT_CHARSET = 1
30      Const SYMBOL_CHARSET = 2
40      Const SHIFTJIS_CHARSET = 128
50      Const HANGEUL_CHARSET = 129
60      Const HANGUL_CHARSET = 129
70      Const GB2312_CHARSET = 134
80      Const CHINESESIMPLIFIED_CHARSET = 134
90      Const CHINESEBIG5_CHARSET = 136
100     Const OEM_CHARSET = 255
110     Const JOHAB_CHARSET = 130
120     Const HEBREW_CHARSET = 177
130     Const ARABIC_CHARSET = 178
140     Const GREEK_CHARSET = 161
150     Const TURKISH_CHARSET = 162
160     Const VIETNAMESE_CHARSET = 163
170     Const THAI_CHARSET = 222
180     Const EASTEUROPE_CHARSET = 238
190     Const RUSSIAN_CHARSET = 204
 
200     Call AppendCharacterSet("Windows-1250", "iso-8859-2", "Tahoma", 8.25, _
  EASTEUROPE_CHARSET, "Verdana", "1250", "Central Europe languages: Albanian," & _
  "Croatian, Czech, Hungarian, Polish, Romanian, Serbian (Latin), Slovak," & _
  "Slovenian")
210     Call AppendCharacterSet("Windows-1251", "iso-8859-5", "Tahoma", 8.25, _
RUSSIAN_CHARSET, "Verdana", "1251", "Cyrillic languages: Azeri, Belarusian," & _
"Bulgarian, FYRO Macedonian, Kazakh, Kyrgyz, Mongolian, Russian, Serbian," & _
"Tatar, Ukrainian, Uzbek")
220     Call AppendCharacterSet("Windows-1252", "iso-8859-1", "Tahoma", 8.25, _
ANSI_CHARSET, "Verdana", "1252", "Latin 1 languages: Afrikaans, Basque," & _
"Catalan, Danish, Dutch, English, Faroese, Finnish, French, Galician, German," & _
"Icelandic, Indonesian, Italian, Malay, Norwegian, Portuguese, Spanish," & _
"Swahili, Swedish")
230     Call AppendCharacterSet("Windows-1253", "iso-8859-7", "Tahoma", 8.25, _
GREEK_CHARSET, "Verdana", "1253", "Greek")
240     Call AppendCharacterSet("Windows-1254", "iso-8859-9", "Tahoma", 8.25, _
TURKISH_CHARSET, "Verdana", "1254", "Turkic languages: Azeri (Latin), Turkish," & _
"Uzbek (Latin)")
250     Call AppendCharacterSet("Windows-1255", "iso-8859-8-i", "David", 8.25, _
HEBREW_CHARSET, "David", "1255", "Hebrew")
260     Call AppendCharacterSet("Windows-1256", "iso-8859-6", "Traditional" & _
"Arabic", 8.25, ARABIC_CHARSET, "Traditional Arabic", "1256", "Arabic, Farsi," & _
"Urdu")
270     Call AppendCharacterSet("Windows-1257", "iso-8859-4", "Tahoma", 8.25, _
0, "Verdana", "1257", "Baltic languages: Estonian, Latvian, Lithuanian")
280     Call AppendCharacterSet("Windows-1258", "", "Angsana New", 8.25, _
VIETNAMESE_CHARSET, "Angsana New", "1258", "Vietnamese")
290     Call AppendCharacterSet("Windows-874", "", "Angsana New", 8.25, _
THAI_CHARSET, "Angsana New", "874", "Thai")
300     Call AppendCharacterSet("Shift_JIS", "", "MS UI Gothic", 8.25, _
SHIFTJIS_CHARSET, "MS UI Gothic", "932", "Japanese")
310     Call AppendCharacterSet("ks_c_5601-1987", "", "Arial Unicode MS", 9, _
HANGEUL_CHARSET, "Arial Unicode MS", "949", "Korean")
320     Call AppendCharacterSet("gb2312", "", "SimSun", _
CHINESESIMPLIFIED_CHARSET, 8.25, "SimSun", "950", "Chinese")