Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.SuspendLayout()
        Dim btn As Button
        Dim i As Integer
        '動的にコントロールを配置する 
        For i = 0 To 2
            btn = New Button()
            Me.Controls.Add(btn)
            AddHandler btn.Click, AddressOf sub_click   'イベントを関連付ける
            btn.Left = 10
            btn.Top = btn.Height * i + 10
            btn.Text = CStr(i) & "個目"
        Next
        Me.ResumeLayout()
    End Sub

    Private Sub sub_click(ByVal sender As Object, ByVal e As System.EventArgs)
        MsgBox(sender.text & "をクリック")
    End Sub