 If
              
      Else
         If 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, 0
            End If
            On Error GoTo 0
         
         Else
            ' Standard draw:
            ImageList_Draw _
               lhIml, _
             