CRÉÉ UNE 'MATRICE' DE PICTUREBOX

'-------------------------------------------------------------------------
'--                code réalisé par EndSub le 15/12/2002                --
'-- permet de créer une matrice d'image (ou de n'importe quel controle) --
'-- n'oublié pas de mettre la propriété index a 0 du controle d'origine --
'-------------------------------------------------------------------------

Private Sub Form_Load()
Dim FirstPass As Boolean
Dim ImgTop As Integer
Dim ImgLeft As Integer

ImgLeft = Image1(0).Left
ImgTop = Image1(0).Top
FirstPass = False

For c = 1 To 10
 For d = 1 To 10
  
  If FirstPass = False Then
   FirstPass = True
   GoTo Continue
  End If
  Load Image1(Image1.Count)
  
  With Image1(Image1.Count - 1)
  .Visible = True
  .Left = ImgLeft + Image1(0).Width * (d - 1)
  .Top = ImgTop + Image1(0).Height * (c - 1)
  DoEvents
  End With
  
Continue:
 Next
Next

End Sub