Visual Basic.NET - crear botones dinamicamente y asignar botones

Public Class Form1

    Dim NvoBoton As New Button

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        ' Dim miControl As New Button

        'With miControl

        '    .Text = "clic"

        '    .Name = "btnSalir"

        '    .Left = 200

        '    .Top = 50

        '    .Width = 100

        '    .Height = 20

        '    Me.Controls.Add(miControl)

        'End With

        With NvoBoton

            .Text = "Back"

            .Size = New Size(96, 23)

            .Location = New Point(4, 321)

            .Font = New Font("Microsoft Sans Serif", 8, FontStyle.Bold)

            .UseVisualStyleBackColor = True

        End With

        AddHandler NvoBoton.Click, AddressOf BtnMensaje

        Me.Controls.Add(NvoBoton)

    End Sub

    Public Sub BtnMensaje(ByVal sender As Object, ByVal e As System.EventArgs)

        NvoBoton.Text = "Hola"

    End Sub