Public Class frmTisch_splitten
    Inherits System.Windows.Forms.Form
    Dim PositionsButton As Button
    Dim selcted As PictureBox
    Dim img_checked As Image = Image.FromFile("C:\Dokumente und" & _
      "Einstellungen\Lars\Desktop\Visual Studio" & _
      "Projects\Bistro-Cash\Checked.jpg")
    Dim img_unchecked As Image = Image.FromFile("C:\Dokumente und" & _
    "Einstellungen\Lars\Desktop\Visual Studio" & _
    "Projects\Bistro-Cash\unchecked.jpg")
 
 
    Private Sub frmTisch_splitten_Load(ByVal sender As System.Object, ByVal e _
      As System.EventArgs) Handles MyBase.Load
        'Cursor.Hide()
 
        Me.Hide()
 
        Dim x As Integer = 45
 
        Dim i As Integer
 
        For i = 1 To 5
 
            PositionsButton = New Button
            selcted = New PictureBox
            ' Button zeichnen
            PositionsButton.Font = New System.Drawing.Font("Arial", 10.0!, _
              System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, _
              CType(0, Byte))
            PositionsButton.Location = New System.Drawing.Point(15, x)
            PositionsButton.FlatStyle = FlatStyle.System
            PositionsButton.Name = "btnPositionsauswahl" & i
            PositionsButton.Text = "Positionsauswahl " & i
            PositionsButton.Size = New System.Drawing.Size(256, 40)
            PositionsButton.TabStop = False
            PositionsButton.Visible = True
            ' PictureBox zeichnen
 
            selcted.Image = img_unchecked
            selcted.Location = New System.Drawing.Point(320, x)
            selcted.Name = "PictureBox" & i
            selcted.Size = New System.Drawing.Size(40, 40)
            selcted.TabStop = False
            selcted.Visible = True
 
            Panel1.Controls.Add(PositionsButton)
            Panel1.Controls.Add(selcted)
            AddHandler PositionsButton.Click, AddressOf PositionsButton_click
 
            x += 45
 
        Next
 
        Me.Visible = True
 
    End Sub
 
    Private Sub PositionsButton_click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs)
 
        Select Case DirectCast(sender, Button).Name
            Case Is = "btnPositionsauswahl1"
 
 
 
        End Select
 
    End Sub
End Class