Private Sub Command1_Click()
    Dim I As Integer, J As Integer
    ' Esta rutina no esta depurada, sólo es una idea para realizar un Thumnail, y esta concebida 
    ' para demostrar las capacidades del PaintPicture
    ' Se toma como referencia la imagen del Picture1 para repetir esa misma imagen en le Picture2...
    
    ' Borramos el contenido anterior para volver a regenerar el Thumnail
    Picture2.Cls

    ' Realizamos un bucle anidado, para generar las distintas filas/columnas del Thumnail
    For I = 1 To 5
        For J = 1 To 7
            Picture2.PaintPicture Picture1.Picture, (90 * (J - 1)), (120 * (I - 1))
        Next J
    Next I
End Sub