Private Declare Function GetACP Lib "kernel32" () As Long
 
Private Const ANSI_CHARSET = 0               ' Ansi Zeichensatz
Private Const ARABIC_CHARSET = 178         ' Arabisch (NT/2000)
Private Const BALTIC_CHARSET = 186          ' Baltisch (Win 9x)
Private Const CHINESEBIG5_CHARSET = 136 ' Chinesisch
Private Const DEFAULT_CHARSET = 1         ' Standard
Private Const EASTEUROPE_CHARSET = 238 ' Osteuropäisch (Win 9x)
Private Const GB2312_CHARSET = 134         ' Englisch
Private Const GREEK_CHARSET = 161          ' Griechisch (Win 9x)
Private Const HANGEUL_CHARSET = 129      ' Handgeul
Private Const HEBREW_CHARSET = 177        ' Hebräisch (NT/2000)
Private Const JOHAB_CHARSET = 130         ' Johab (Win 9x)
Private Const MAC_CHARSET = 77               ' Mac (Win 9x)
Private Const OEM_CHARSET = 255             ' OEM
Private Const RUSSIAN_CHARSET = 204       ' Russisch (Win 9x)
Private Const SHIFTJIS_CHARSET = 128        ' ShiftJis
Private Const SYMBOL_CHARSET = 2           ' Symbolisch
Private Const THAI_CHARSET = 222             ' Thailändisch (NT/2000)
Private Const TURKISH_CHARSET = 162         ' Türkisch (Win 9x)
 
Private Const CODEPAGE_RUSSIAN As Long = 1251
Private Const CODEPAGE_GERMAN As Long = 1252
 
private myCharset As Long
 
Private Sub Class_Initialize()
 
  Select Case GetACP
    Case CODEPAGE_RUSSIAN
      myCharset = RUSSIAN_CHARSET
 
    Case Else
      myCharset = 0
 
  End Select
 
End Sub

ctl.Font.Charset = myCharset