第一个作业
![[呼~]](/static/emoticons/u547c~.png)
:
Private WithEvents NewButton As TextBox *声明
Private Sub Form_Click()
Set NewButton = Controls.Add("VB.textbox", "name", Me)
*NewButton.Move 这里可以加加移动到的位置,也可以决定控件大小
NewButton.Text = ""
NewButton.Visible = True
End Sub
Private Sub Form_DblClick()
End *unload me 也可以实现退出
End Sub