ChooseColor

Public Declare PtrSafe Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long 

 Public Enum CHOOSE_COLOR_FLAGS 

&CC_RGBINIT = &H1& CC_FULLOPEN = &H2

&CC_PREVENTFULLOPEN = &H4

&CC_SHOWHELP = &H8

&CC_ENABLEHOOK = &H10

&CC_ENABLETEMPLATE = &H20

 &CC_ENABLETEMPLATEHANDLE = &H40

&CC_SOLIDCOLOR = &H80

&CC_ANYCOLOR = &H100

 End Enum 

Private Type CHOOSECOLOR 

lStructSize As Long 

hwndOwner As Long 

hInstance As Long 

rgbResult As Long 

lpCustColors As Long 

flags As CHOOSE_COLOR_FLAGS 

lCustData As Long 

lpfnHook As Long 

lpTemplateName As String 

End Type 

Private Declare PtrSafe Function ChooseColor_API Lib

 "comdlg32.dll" Alias "ChooseColorA" (lpChoosecolor As CHOOSECOLOR) As Long