al ByVal eRasterOp As RasterOpConstants = vbSrcCopy _
   )
   ' Draws either the Image (XOR) or Mask (AND) parts of the icon to an HDC:
   GetIconBitmap lHDC, nIndex, eType, True, x, y, lWidth, lHeight, eRasterOp
End Sub
Public Function SetIconFromBitmap( _
      ByVal lHDC As Long, _
      ByVal nIndex As Long, _
      Optional ByVal x As Long = 0, Optional ByVal y As Long = 0, _
      Optional ByVal bSetMaskUsingTransparentColour As Boolean, _
      Optional ByVal lTransparentColour As OLE_COLOR = -1, _
 