crear evento para boton creardo en tiempo de ejecucion

[robertgustavo]

viendo que en .NET al tener formularios con varios controles estos son lentos para cargar, decidi crear los controles en tiempo de ejecucion, de esta forma:

_________________________________________

Imports System.Data.SqlClient
Public Class Form2
Dim Txtcodigo As New TextBox
Dim txtnombre As New TextBox
Dim cmdAceptar As New Button
Dim dgProductos As New DataGridView

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

CrearTextbox()
End Sub
Private Sub CrearTextbox()
Txtcodigo.Name = "Txtcodigo"
Txtcodigo.Location = New Point(50, 50)
Me.txtnombre.Name = "TxtNombre"
Me.txtnombre.Location = New Point(50, 74)
Me.cmdAceptar.Name = "CmdAceptar"
cmdAceptar.Location = New Point(60, 95)
cmdAceptar.Text = "Aceptar"
Me.dgProductos.Name = "dgProductos"
Me.dgProductos.Location = New Point(50, 130)
Me.dgProductos.BorderStyle = BorderStyle.Fixed3D

Me.Controls.Add(Me.dgProductos)
Me.Controls.Add(Txtcodigo)
Me.Controls.Add(txtnombre)
Me.Controls.Add(cmdAceptar)
End Sub
End Class

__________________________________________________ ____


Como le creo el evento al boton cmdAceptar ??