FRAME UND TEXTBOX ...

Private Sub UserForm_initialize()
Dim ctl As Control
'*  FRAME ERSTELLEN IN USERFORM                           *
'*  Dim ctl As Control                                    *
Set ctl = Controls.Add("forms.frame.1", "frm1", True)
With ctl
.Left = 400
.Top = 20
.Width = 400
.Height = 490
.Font.Bold = True
.Font.Name = "Tahoma"
.Font.Size = 10
.Caption = "   KUNDEN   "
End With
'*  LABEL UND TEXTBOXEN ERSTELLEN IN USERFORM             *
'*  Dim ctl As Control                                    *
'*  KUNDENNUMMER : LABEL UND TEXTBOX                      *
'*  lbl1 & txt1                                           *
Set ctl = Controls.Add("forms.label.1", "lbl1", True)
With ctl
.Left = 30
.Top = 50
.Width = 100
.Height = 20
.Font.Bold = True
.Font.Name = "Tahoma"
.Font.Size = 10
.Caption = "KUNDENNUMMER"
.Accelerator = "K"
End With
Set ctl = Controls.Add("forms.textbox.1", "txt1", True)
With ctl
.Left = 150
.Top = 50
.Width = 200
.Height = 20
.Font.Bold = True
.Font.Name = "Tahoma"
.Font.Size = 10
End With
End Sub
Wie bekomme ich Text- und Label in Frame ?
Danke