VB.NET中怎么动态创建控件

VB.NET中如何动态创建控件
比如我想在Form1窗口上建5个Button1，然后再逐一删除，希望给个代码做参考。谢谢，还有个小问题就是如果在生成的程序中，可以手动随便托动Button1按钮位置。
------解决方案--------------------
Sub AddButton(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim NewButton As New Button
        Static Dim ButtonID As Integer = 0
        ButtonID += 1
        With NewButton
            .Location = New Point(10, ButtonID * 40) 'New Point(Form1.Label1.Text, Form1.Label2.Text)

            .Size = New System.Drawing.Size(79, 29)
            .TabIndex = 0
            .UseVisualStyleBackColor = True
            .Name = "Button" & ButtonID 'TextBox1.Text
            .Text = "Button" & ButtonID 'TextBox1.Text
            'AddHandler .MouseDown, AddressOf _MouseDown '绑定事件处理程序
              'AddHandler .MouseMove, AddressOf _MouseMove
            'AddHandler .Click, AddressOf _Click '绑定事件处理程序

        End With
        Me.Controls.Add(NewButton) '添加进from
    End Sub
    Sub DelButton(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim ButtonID As Integer
        ButtonID = sender.Tag '获取标识
         Dim NowButton As Button
        NowButton = ButtonCollection("Button" & ButtonID) '获取button
        RemoveHandler NowButton.Click, AddressOf DelButton '移除绑定事件
         Me.Controls.Remove(NowButton) '删除按键
        NowButton.Dispose() '销毁
    End Sub