Public Class Form1
 
   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
     System.EventArgs) Handles MyBase.Load
      Me.Width = 700
 
      Dim btn As Button
      'Button dynamisch erzeugen und all diese mit einem einzigen Click 
      ' Ereignis versorgen
 
      For a As Int32 = 0 To 3
         btn = New Button
         btn.Text = "Nummer " + a.ToString
         btn.Width = 125
         btn.Height = 23
         Me.Controls.Add(btn)
         btn.Left = a * 150
         btn.Top = 20
         AddHandler btn.Click, AddressOf MyButtonClick
      Next
   End Sub
 
   Private Sub MyButtonClick(ByVal sender As System.Object, ByVal e As _
     System.EventArgs)
      MsgBox("Es wurde der Button " + CType(sender, Button).Text + " gedrückt.")
   End Sub
End Class

Visual Basic Express 2010, C# Express 2010
Intel? i7 Core 920@2.63 Ghz, 6 GByte DDR3, 1024 MB ATI? Radeon? 5870, Windows 7 Prof. 64 Bit
Gibson SG 61' Reissue ; Ibanez Prestige RG 2550 E, Marshall Valvestate VS100 + Modell Vs412 (4 x 12''), Cubase Studio