Dim WithEvents mytextbox As VB.TextBox
Private Sub Command1_Click()
Dim mytextbox As VB.TextBox
Set .mytextbox = Me.Controls.Add("VB.textbox", "mytextbox")
mytextbox Move.Me.commandleft - 1500
mytextbox Visible = True
End Sub
Private Sub Command2_Click()
Me.Controls.Remove "mytextbox"
End Sub
Private Sub mytextbox_Change()
Print mytextbox.Text
End Sub
Private Sub Text1_Change()
Print Text1.Text
End Sub