Dim c As Integer = 0
        For x As Integer = 40 To 160 Step 60
            For y As Integer = 40 To 160 Step 60
                Dim mybutton As New Button
                Me.Controls.Add(mybutton)
                With mybutton
                    .Name = "B" & c
                    .Location = New Point(x, y)
                    .Size = New Size(40, 40)
                    .Text = .Name
                    AddHandler .Click, AddressOf button_clicked
                End With
                c = c + 1
            Next y
        Next x

    Private Sub button_clicked(ByVal sender As Object, ByVal e As Object)
 
        Dim button As Button = CType(sender, Button)
 
        With button
            If .Name = "B0" Then
                MsgBox("B0 gedrückt")
            ElseIf .Name = "B1" Then
                MsgBox("B1 gedrückt")
            ElseIf .Name = "B2" Then
                MsgBox("B2 gedrückt")
 
                '.. usw
            End If
        End With
    End Sub