Private Sub Form_Load()
 
  Controls.Add "VB.TextBox", "txtBox", Me
 
  With Me.Controls("txtBox")
    .Visible = True
    .Left = 100
    .Top = 100
    .Width = 1000
  End With
 
End Sub

Gruß
Dirk

--
?Get it right the first time