Enum EChooseColor
    CC_RGBInit = &amp;H1
    CC_FullOpen = &amp;H2
    CC_PreventFullOpen = &amp;H4
    CC_ColorShowHelp = &amp;H8
' Win95 only
    CC_SolidColor = &amp;H80
    CC_AnyColor = &amp;H100
' End Win95 only
    CC_ENABLEHOOK = &amp;H10
    CC_ENABLETEMPLATE = &amp;H20
    CC_EnableTemplateHandle = &amp;H40
End Enum
Private Declare Function GetSysColor Lib "user32" (ByVal nIndex As Long) As Long

Private Type TCHOOSEFONT
    lStructSize As Long         ' Filled with UDT size
    hWndOwner As Lon