下面的代码只供参考

Dim txtTest(10) As TextBox   
          Private Sub button1_Click(ByVal sender As System.Object, ByVal e As  System.EventArgs) Handles button1.Click   
                  txtTest(0) = New TextBox   
                  Me.Controls.Add(txtTest(0))   
                  txtTest(0).Location = New Point(0, 0)   
                  txtTest(0).Size = New Size(200, 200)   
                  txtTest(0).Visible = True   
                  AddHandler txtTest(0).Click, AddressOf txtTest_Click   
                  Controls.Add(txtTest(0))   
          End Sub   
          Private Sub txtTest_Click(ByVal sender As System.Object, ByVal e As   System.EventArgs)   
                  MessageBox.Show("A")   
          End Sub

楼上正确