ecision As Byte
    lfQuality As Byte
    lfPitchAndFamily As Byte
    lfFaceName(LF_FACESIZE) As Byte
End Type

Public Enum EChooseFont
    CF_ScreenFonts = &amp;H1
    CF_PrinterFonts = &amp;H2
    CF_BOTH = &amp;H3
    CF_FontShowHelp = &amp;H4
    CF_UseStyle = &amp;H80
    CF_EFFECTS = &amp;H100
    CF_AnsiOnly = &amp;H400
    CF_NoVectorFonts = &amp;H800
    CF_NoOemFonts = CF_NoVectorFonts
    CF_NoSimulations = &amp;H1000
    CF_LimitSize = &amp;H2000
    CF_FixedPitchOnly = &amp;H4000
    CF_WYSIWY