Help with Thumbnail View

Call isfParent.GetUIObjectOf(0&, 1&, pidlRelChild, IID_IExtractImage, 0&, iei)
    Debug.Print "2"
    If (iei Is Nothing) = False Then
 
        uThumbSize.cx = cxThumb
        uThumbSize.cy = cyThumb
        uThumbFlags = IEIFLAG_ASPECT Or IEIFLAG_SCREEN
        sRet = String$(MAX_PATH, 0)
        iei.GetLocation sRet, MAX_PATH, 0&, uThumbSize, 32, uThumbFlags
        sRet = GetStrFromBufferA(sRet)
        Debug.Print "InsertListItemEx::sRet="
        Dim hThumb As Long, lRtn As Long
        iei.Extract hThumb
        Debug.Print "3"
        If hThumb Then
            lRtn = ImageList_Add(hIML_Thumb, hThumb, 0)
            If lRtn > -1 Then
                Debug.Print "4, lrtn=" & lRtn
                lvi.iImage = lRtn
                Debug.Print "5"
            Else
                DebugAppend "InsertListItemEx::Failed to add hThumb to hIML_Thumb"
            End If
        Else
            DebugAppend "InsertListItemEx::Failed to get hThumb"
        End If
    End If