an alternative is to create it from scratch, without making any controls up front.

VB Code:
  1. Private Sub Command1_Click()
  2.     Dim ctlTxtBox As Control
  3.     Set ctlTxtBox = Controls.Add("VB.TextBox", "ctlTxtBox1", Form1)
  4.     ctlTxtBox.Height = 2000
  5.     ctlTxtBox.Width = 2000
  6.     ctlTxtBox.Visible = True
  7. End Sub