生成并运行按钮

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

 

 

无效或不合格的引用