Zitat:

Wenn du nicht weißt, wie viele Elemente du haben wirst, dann nimm keine Arrays sondern andere Datenstrukturen. Listen würden sich da für dich anbieten.

Dim Fenster As New List(Of Panel)
Sub Neues_Fenster()
    Dim pnl As New Panel
    pnl.BorderStyle = BorderStyle.FixedSingle
    pnl.Location = New System.Drawing.Point(LInt_X, LInt_Y)
    pnl.Tag = LInt_I
    Fenster.Add(pnl)
    Me.Controls.Add(pnl)
End Sub