Private WithEvents Button As System.Windows.Forms.Button
 
    Private Sub Steuerung_Load(ByVal sender As System.Object, _
                ByVal e As System.EventArgs) Handles MyBase.Load
 
        Dim i As Integer
        Dim Position As Point
 
        For i = 1 To 10
 
            With Position
                .X = 10 * i
                .Y = 10 * i
            End With
 
            Button = New System.Windows.Forms.Button
            AddHandler Button.Click, AddressOf Button_click
            Button.Name = "Test" & i
            Button.Location = Position
            Me.Controls.Add(Button)
 
        Next
 
 
    End Sub
 
    Private Sub Button_click(ByVal sender As System.Object, _ 
                ByVal e As System.EventArgs) Handles Button.Click
        MsgBox(sender.name)
    End Sub