     Optional ByVal lMaskHDC As Long _
   )
Dim tBMIH As BITMAPINFOHEADER
Dim tBMIMono As BITMAPINFO_1BPP
Dim lXor As Long
Dim lAnd As Long
Dim lhDCMaskCopy As Long
Dim lhBMPMask As Long
Dim lhBMPMaskOld As Long
Dim lhDCImage As Long
Dim lhBmpImage As Long
Dim lhBmpImageOld As Long
Dim lPtrMask As Long
Dim lhDCDibImage As Long
Dim hDibImage As Long
Dim lhDibImageOld As Long
Dim lPtr As Long

   ' First, get a copy of the BitmapInfoHeader structure:
   ' Icons have 2 x correct height, so temporarily correct 