Public Sub BackPicture(Ctl As VB.Form, ByVal pic As String)

Dim img() As VB.Image
ReDim Preserve img(1)
Set img(0) = Ctl.Controls.Add("VB.image", "img")
img(0).Picture = LoadPicture(pic)
hmax = Screen.Width / img(0).Width + 2
vmax = Screen.Height / img(0).Height + 2

For l = 1 To vmax
For h = 1 To hmax
cpt = cpt + 1
'Load img(cpt)
ReDim Preserve img(cpt)
Set img(cpt) = Ctl.Controls.Add("VB.image", "img" & cpt)
With img(cpt)
.Visible = True
.Picture = img(0).Picture
.Top = l * .Height - (.Height)
.Left = h * .Width - (.Width)
End With
Next
Next
End Sub