Dim Contador As integer
Dim bcolor As New Random()
 
Public Sub newControl(ByVal nomctrl As String)
   Dim pan As Panel= new Panel
   pan.name=nomctrl
   pan.left= Contador * 60 ' Para que no se pongan uno encima de otro
   Contador += 1
   pan.BackColor = Color.FromArgb(bcolor.Next(0, Int32.MaxValue)) ' Color Aleatorio para diferenciarlo
   pan.text=nomctrl
   Me.control.add(pan)
 
  ' Esta linea es la que agrega el evento, debes tomar en cuenta que hay eventos especiales
  ' ejemplo: OnPaint tiene como clase PaintEventHandler, eso debes averiguarlo por ti mismo ;-)
   AddHandler pan.Click, New EventHandler(AddressOf panel_Click) 
End Sub
 
'' Form_Load
newControl("panel1")
newControl("panel2")
' ...........
 
Public Sub panel_Click(sender as object, e as EventArgs) 
    Dim p as panel = Ctype(sender, TypeOf(panel))
    Select Case p.Name
          Case "panel1": MsgBox("Hiciste click en el panel 1")
          Case "panel2": MsgBox("Hiciste click en el panel 2")
     End Select
End Sub