    OFN_NOLONGNAMES = &amp;H40000
    OFN_EXPLORER = &amp;H80000
    OFN_NODEREFERENCELINKS = &amp;H100000
    OFN_LONGNAMES = &amp;H200000
End Enum

Private Type TCHOOSECOLOR
    lStructSize As Long
    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 