VB6 - Thumbnail view based on WIA 2.0

[dilettante]

In the original program that assignment triggers:

Private Sub optThumbnailSize_Click(Index As Integer)
    With MakeThumbs
        Select Case Index
            Case 0
                .ThumbWidth = 84
                .ThumbHeight = 64
            Case 1
                .ThumbWidth = 164
                .ThumbHeight = 124
            Case 2
                .ThumbWidth = 204
                .ThumbHeight = 154
        End Select
        .InitThumbs
    End With
    If Folder Is Nothing Then
        tmrSetFocus.Enabled = True 'Defer setting focus.
    Else
        EnableUI False
        Populate
    End If
End Sub

And that should address the issue of thumbnail sizes. I'm not sure why you are changing things within MakeThumbs.cls aside from the "bang" replacements we discussed above.