@Daniel - ListBox Item an label Array

Dann brauchst du eine Schleife über alle Elemente der Listbox:
For z = 0 to Listbox2.ListCount - 1
Das i und j für die Zeilen- und Spaltennummer berechnest du dann nach diesem Schema:
Zeile: i = Int(z / Anzahl_Spalten)
Spalte: j = z Mod Anzahl_Spalten
Wobei du hier die Zeilen- und Spaltennummer beginnend mit 0 bekommst und nicht mit 1.
Das musst du bei der Berechnung der Koordinaten berücksichtigen.

Wobei du hier die Zeilen- und Spaltennummer beginnend mit 0 bekommst und nicht mit 1.
Das musst du bei der Berechnung der Koordinaten berücksichtigen.

Dim Z As Integer
For Z = 0 To ListBox7.ListCount - 1
Zeile: i = Int(Z / 4)
Spalte: j = Z Mod 4
Set lb = MultiPage1.Pages(1).Controls.Add("Forms.CommandButton.1", "lb")
With lb
.Top = (i * 50) + 25
.Height = 50
.Width = 200
.Left = (j * 200) + 12
.Font.Size = 14
.Font.Name = "Bahnschrift Condensed"
.BackColor = RGB(153, 204, 255)
.Caption = ListBox7.List(i * 4 + j)
End With
Next

(i * 4 + j)