Private Sub Command1_Click()
Dim i As Integer
Dim j As Integer
For i = 0 To Int(Form1.Width / Image1.Width) + 1
For j = 0 To Int(Form1.Height / Image1.Height) + 1
Form1.PaintPicture Image1.Picture, i * Image1.Width, j * Image1.Height
Next
Next
End Sub