1) Then lColor = TranslateColor(vbWindowBackground)
            ImageList_DrawEx _
                  lhIml, _
                  iImgIndex, _
                  hdc, _
                  xPixels, yPixels, 0, 0, _
                  CLR_NONE, lColor, _
                  lFlags
         End If
         
      ElseIf (bDisabled) Then
         
         If Not (ptrVB6ImageList = 0) Then
         
            On Error Resume Next
            Set o = ObjectFromPtr(ptrVB6ImageList)
            If Not (o Is Nothing) Th