Multipages dynamisch erzeugen

Private Sub UserForm_Initialize()
Dim ctl As Control
Dim llast As Long
Dim i As Long
Dim iAnzPages As Integer
Set ctl = Me.Controls.Add("forms.Multipage.1", True)
llast = wks.Cells(Rows.Count, 1).End(xlUp).Row
ctl.Pages = llast - 1   'hier soll die Anzahl der Seiten festgelegt werden
With ctl
.Left = 270
.Top = 12
.Width = 546
.Height = 276
.Font.Size = 12
.ForeColor = &H80000012
.Visible = True
'.BackColor = &H80&
For i = 2 To llast
.Pages(i - 2).Caption = wks.Cells(i, 1).Value
Next i
End With
End Sub