an alternative is to create it from scratch, without making any controls up front.
VB Code:
Private Sub Command1_Click() Dim ctlTxtBox As Control Set ctlTxtBox = Controls.Add("VB.TextBox", "ctlTxtBox1", Form1) ctlTxtBox.Height = 2000 ctlTxtBox.Width = 2000 ctlTxtBox.Visible = True End Sub




Reply With Quote