Textbox added to Form at runtime is too small, can't control size andchange event won't trigger

[RCGUA]

I have Form and when the user clicks CommandButton4 a textbox is added
to the form with the code below. When I type in the textbox it
resizes itself really small and you can only view a small amount of
the text typed into the box. Also, when I type in the box the change
event does trigger the msgbox. Does anyone know how to make this
textbox resize so the user can see all the text that is typed into the
box?

Private Sub CommandButton4_Click()
Dim ctrl As msforms.TextBox
With Me
Set ctrl = .Controls.Add("forms.textbox.1", "txt1", True)
ctrl.Left = 20
ctrl.Top = 50
ctrl.AutoSize = True
ctrl.MultiLine = True
ctrl.WordWrap = True
ctrl.Visible = True
End With
End Sub

Private Sub txt1_change()
MsgBox "txt1 has changed"
End Sub

 

[Office_Novice]

Try removing this line ctrl.AutoSize = True

 

[RCGUA]

Try removing this line  ctrl.AutoSize = True

Thanks for your reply. I just tried removing that line and the box
still remains small and only displays a few words of text and typing
in the box still doesn't trigger the change event (which can be used
to run code to re-size the box).