Imagen en mosaico como fondo de un form


Basta con colocar la imagen dentro de un cuadro de imagen (picturebox) en el form destino y agregar el siguiente código en el evento form_paint:


Dim i As Integer
For i = 0 To Form1.ScaleHeight Step Picture1.Height
    For j = 0 To Form1.ScaleWidth Step Picture1.Width
        PaintPicture Picture1, j, i, Picture1.Width, Picture1.Height
        Next
    Next