Opret flere af samme Objekt

'------------------------------- Form1 -------------------------------
'1) set en "Shape1" på Form1.
'2) find "Index" på "Shape1" over i Properties - Shape1
'3) skriv 0 (nul) så skulle der gerne stå Properties - Shape1(0)
'4) indsæt denne kode på en form (Form1)

Option Explicit

Private Sub Form_Load()
Dim Lodret, Vandret, FeltID As Integer
Const Bredde = 5 '<--- 5x5
Shape1(0).Visible = False

  For Lodret = 1 To Bredde
    For Vandret = 1 To Bredde
      FeltID = (Lodret * Bredde) + Vandret
      Load Shape1(FeltID)
      Shape1(FeltID).Move (Lodret * Shape1(FeltID).Width), _
                          (Vandret * Shape1(FeltID).Height)
      Shape1(FeltID).Visible = True
    Next
  Next
End Sub
'------------------------------- Form1 -------------------------------

takker for det sjh

selv tak