是。Private Sub MyForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim MyTextbox as New Textbox With MyTextbox .Size = New Size(100,20) .Location = New Size(20,20) End With AddHandler MyTextbox.TextChanged, AddressOf MyTextbox_TextChanged Me.Controls.Add(MyTextbox) End SubFriend Sub MyTextbox_Changed(sender as Object, e as EventArgs) 'Write code here.End Sub