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 = "Test " & i
            btnHauptgerichte.Visible = True
            Me.Panel1.Controls.Add(btnHauptgerichte)
            y += 150
 
        Next