Private Type ChooseColor
  lStructSize As Long
  hwndOwner As Long
  hInstance As Long
  rgbResult As Long
  lpCustColors As String
  flags As Long
  lCustData As Long
  lpfnHook As Long
  lpTemplateName As String
End Type
Private Declare Function ShowColour Lib "comdlg32.dll" Alias "ChooseColorA" ( _
  pChoosecolor As ChooseColor) As Long
Function ShowColorDlg(hWnd As Long) As Long
Dim CustomColours() As Byte
ReDim CustomColours(0 To 15) As Byte
Dim tChooseColour As ChooseColor
With tChooseColour
.hwndOwner = hWnd
.lpCustColors = StrConv(CustomColours, vbUnicode)
.flags = 0&
.lStructSize = Len(tChooseColour)
End With
    If ShowColour(tChooseColour) = 0 Then ShowColorDlg = -1: Exit Function
ShowColorDlg = tChooseColour.rgbResult
End Function