Public Class frmStartframe
    Inherits System.Windows.Forms.Form
    Public Shared Mainform As frmStartframe
    Dim btnHauptgerichte As Button
 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
 
        Dim y As Integer = 8
        Dim x As Integer = 8
 
        Dim i As Integer
        For i = 1 To 15
 
            If i = 6 Or i = 11 Then
                y = 8
                x += 56
            End If
 
            btnHauptgerichte = New Button
            AddHandler btnHauptgerichte.Click, AddressOf btnHauptgerichte_Click
            btnHauptgerichte.Location = New System.Drawing.Point(y, x)
            btnHauptgerichte.FlatStyle = FlatStyle.System
            btnHauptgerichte.Name = "btnHauptgerichte" & i
            btnHauptgerichte.Size = New System.Drawing.Size(150, 56)
            btnHauptgerichte.TabIndex = 0
            btnHauptgerichte.Text = "Schnitzel mit Pommes " & i
            btnHauptgerichte.Visible = True
            Me.Panel1.Controls.Add(btnHauptgerichte)
            y += 150
 
        Next
 
    End Sub
 
    Private Sub btnHauptgerichte_Click(ByVal sender As System.Object, ByVal e _
      As System.EventArgs)
 
        MessageBox.Show(btnHauptgerichte.Name)
 
        Select Case btnHauptgerichte.Name
            Case Is = "btnHauptgerichte1"
                MessageBox.Show("Gericht1")
            Case Is = "btnHauptgerichte2"
                MessageBox.Show("Gericht2")
        End Select
 
    End Sub