程序代码：

Option Explicit

'------------------------------------------------------------
' Character set ID code From wingdi.h
'------------------------------------------------------------
Private Const ANSI_CHARSET = 0                  'US
Private Const SHIFTJIS_CHARSET = 128            'KK
Private Const CHINESEBIG5_CHARSET = 136         'TC
Private Const HANGEUL_CHARSET = 129             'CH
Private Const GB2312_CHARSET = 134              'PRC
Private Const DEFAULT_CHARSET = 1
Private Const SYMBOL_CHARSET = 2
Private Const OEM_CHARSET = 255
Private Const JOHAB_CHARSET = 130
Private Const HEBREW_CHARSET = 177
Private Const ARABIC_CHARSET = 178
Private Const GREEK_CHARSET = 161
Private Const TURKISH_CHARSET = 162
Private Const VIETNAMESE_CHARSET = 163
Private Const THAI_CHARSET = 222
Private Const EASTEUROPE_CHARSET = 238
Private Const RUSSIAN_CHARSET = 204
Private Const MAC_CHARSET = 77
Private Const BALTIC_CHARSET = 186

Private Sub Form_Load()
    Text1.Text = Join(Array("邨", "强", "獻"), vbCrLf)
    Text1.Font.Charset = CHINESEBIG5_CHARSET
End Sub