f Not (ptrVB6ImageList = 0) Then
            
            On Error Resume Next
            Set o = ObjectFromPtr(ptrVB6ImageList)
            If Not (o Is Nothing) Then
               o.ListImages(iImgIndex + 1).Draw hdc, xPixels *
                Screen.TwipsPerPixelX, yPixels * Screen.TwipsPerPixelY,
                ILD_SELECTED
            End If
            On Error GoTo 0
         Else
        
            ' Draw dithered:
            lColor = TranslateColor(oCutDitherColour)
            If (lColor = -