Public Class frmStartframe
    Inherits System.Windows.Forms.Form
    Public Shared Mainform As frmStartframe
 
    Private Sub frmStartframe_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        Mainform = Me
        StatusBar1.Panels(0).Text = "Verfügbare Tische: "
        StatusBar1.Panels(1).Text = "Belegte Tische: "
        StatusBar1.Panels(2).Text = "Aktiver Kellner: "
        StatusBar1.Panels(3).Text = "Aktuelle Uhrzeit: " & _
          DateTime.Now.ToLongTimeString
        StatusBar1.Panels(0).Alignment = HorizontalAlignment.Left
        StatusBar1.Panels(1).Alignment = HorizontalAlignment.Left
        StatusBar1.Panels(2).Alignment = HorizontalAlignment.Left
        StatusBar1.Panels(3).Alignment = HorizontalAlignment.Center
 
        AddHandler btnHauptgerichte.Click, AddressOf btnHauptgerichte_Click
 
    End Sub
 
    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
 
            Dim btnHauptgerichte As New Button
            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()
 
        Select Case sender.name
            Case Is = btnHauptgerichte1
                MessageBox.Show("Gericht1")
            Case Is = btnHauptgerichte2
                MessageBox.Show("Gericht2")
        End Select
 
    End Sub
 
End Class