    lfEscapement As Long
    lfOrientation As Long
    lfWeight As Long
    lfItalic As Byte
    lfUnderline As Byte
    lfStrikeOut As Byte
    lfCharSet As Byte
    lfOutPrecision As Byte
    lfClipPrecision 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_A