Dim butt As New System.Windows.Forms.Button
            Me.Controls.Add(butt)
            butt.Name = "buttel1"
            butt.Visible = True
            butt.Enabled = True
下面如何给butt添加单击事件或双击事件

raiseEvent

    Dim butt As New Windows.Forms.Button
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Controls.Add(butt)
        butt.SetBounds(Button1.Left + Button1.Width, Button1.Top, Button1.Width, Button1.Height)
        butt.Text = "新增的按钮"
        butt.Show()
        AddHandler butt.Click, AddressOf butt_Click
    End Sub
    Private Sub butt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        MsgBox("你单击的是刚才新建的按钮")
    End Sub

这是系统结的贴还是楼主结的贴呢？

是我结的，谢谢