EXT = &amp;H1&amp;
Private Const DST_PREFIXTEXT = &amp;H2&amp;
Private Const DST_ICON = &amp;H3&amp;
Private Const DST_BITMAP = &amp;H4&amp;

' /* State type */
Private Const DSS_NORMAL = &amp;H0&amp;
Private Const DSS_UNION = &amp;H10&amp; ' Dither
Private Const DSS_DISABLED = &amp;H20&amp;
Private Const DSS_MONO = &amp;H80&amp; ' Draw in colour of brush specified in hBrush
Private Const DSS_RIGHT = &amp;H8000&amp;

Private Declare Function OleTranslateColor Lib "olepro32.dll" (ByVal OLE_COLOR
 As Long, By