1 ' Original Code by Terry Kreft
   2 ' Modified by Stephen Lebans
   3 ' Contact Stephen@lebans.com
   4 
   5 Option Private Module
   6 Option Explicit
   7 '***********  Code Start  ***********
   8 Private Type COLORSTRUC
   9   lStructSize As Long
  10   hwnd As Long
  11   hInstance As Long
  12   rgbResult As Long
  13   lpCustColors As String
  14   flags As Long
  15   lCustData As Long
  16   lpfnHook As Long
  17   lpTemplateName As String
  18 End Type
  19 
  20 Private Const CC_SOLIDCOLOR = &H80
  21 
  22 Private Declare Function ChooseColor Lib "comdlg32.dll" Alias "ChooseColorA" _
  23                                         (pChoosecolor As COLORSTRUC) As Long
  24 
  25 Public Function aDialogColor(ByVal hwnd As Long) As Long
  26   Dim X As Long, CS As COLORSTRUC, CustColor(16) As Long
  27 
  28   CS.lStructSize = Len(CS)
  29 
  30   If hwnd <> 0 Then
  31   CS.hwnd = hwnd
  32   Else
  33   CS.hwnd = Application.hwnd
  34   End If
  35   CS.flags = CC_SOLIDCOLOR
  36   CS.lpCustColors = String$(16 * 4, 0)
  37   X = ChooseColor(CS)
  38   If X = 0 Then
  39     aDialogColor = -1 'False
  40     Exit Function
  41   Else
  42     ' Normal processing
  43      aDialogColor = CS.rgbResult
  44   End If
  45 
  46 End Function
  47 '***********  Code End   ***********
  48 
  49 
  50 
  51 
  52