  hWndOwner As Long
    hInstance As Long
    rgbResult As Long
    lpCustColors As Long
    flags As Long
    lCustData As Long
    lpfnHook As Long
    lpTemplateName As Long
End Type

Private Declare Function ChooseColor Lib "COMDLG32.DLL" _
    Alias "ChooseColorA" (Color As TCHOOSECOLOR) As Long

Public 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