Generar un evento a un botón en tiempo ejecución VB.NET

Quiero agrear un formulario en tiempo de ejecución, es decir ya tengo un con un botón en un formulario previamente creado, y quiere que cuando le de click genere un formulario y agregarle un botón con un procedimiento en el eventoclik

 Private Sub Boton_1_Click(sender As Object, e As EventArgs) Handles Boton_1.Click

      Dim Fromulario As New Form
      Dim Boton As New Button

      Boton .Text = "CERRAR"

      Fromulario .Controls.Add(Boton )
      Fromulario .ShowDialog()

end sub