makeNewTextbox Me.txtText , i, L
 
Private Sub makeNewTextbox(ByRef quelle)
 
    Dim newTB As TextBox
    Set newTB = frm1.Controls.Add("VB.Textbox", "txtText2")
 
    copyTextboxSettings newTB, quelle 'quelle wird byref nicht akzeptiert
 
    newTB.Visible = True
 
    Set newTB = Nothing
End Sub
 
Private Sub copyTextboxSettings(byref ziel As TextBox, byref quelle As TextBox)
    With ziel
        .Top = quelle.Top
        .BorderStyle = quelle.BorderStyle
        .Height = quelle.Height 'muss nach Borderstyle eingestellt werden!
    End With
End Sub