I routinely use code that I either do not have the time or expertise to understand, but can use it. I need to understand how to use the watch not how it was built. Code modules and classes should be black boxes that you need to understand the interfaces not the inner workings. You should only care that the code is usable, flexible, and stable. You do not get 'paid by the line' in most cases. In my opinion i do not think coders should care if a module, class, or function that works well and is designed well could be simpler. Sorry for the rant, but I guess this is my personal Peev. I do not know if those other features are useful, that is a different argument, but in writing shorter code that does less should not be revelation or a surprise to anyone. The second example is mainly shorter because it strips out much of the features of the original code like initial colors, full or partial style, ability to associate with given hwnd, handling the cancel event, etc. I am not an API writer, but correct me if I am wrong.

flags = CC_SOLIDCOLOR Or CC_ANYCOLOR Or CC_RGBINIT Or IIf(bFullOpen, _ If OleTranslateColor(InitColor, 0, lInitColor) Then ' translate the initial OLE color to a long value

Optional ByVal bFullOpen As Boolean, Optional ByVal InitColor As OLE_COLOR) _ ' If oleNewColor -1 Then Me.BackColor = oleNewColorįunction ShowColorDialog(Optional ByVal hParent As Long, _ ' oleNewColor = ShowColorsDialog(Me.hwnd, True, vbRed) ' InitColor is the color initially selected when the dialog is open ' bFullOpen specifies whether the dialog will be open with the Full style ' hParent is the handle of the parent form ' Return the chosen color, or -1 if the dialog is canceled ' Show the common dialog for choosing a color. Private Const CC_ENABLETEMPLATEHANDLE = &H40& Private Declare Function OleTranslateColor Lib 'oleaut32.dll' (ByVal lOleColor _ (lpChoosecolor As ChooseColorStruct) As Long Private Declare Function ChooseColor Lib 'comdlg32.dll' Alias 'ChooseColorA' _

Private Declare PtrSafe Function OleTranslateColor Lib 'oleaut32.dll' (ByVal lOleColor _Īs Long, ByVal lHPalette As Long, lColorRef As Long) As Long Private Declare PtrSafe Function ChooseColor Lib 'comdlg32.dll' Alias 'ChooseColorA' (pChoosecolor As ChooseColorStruct) As LongPtr

Microsoft access color picker online