Private Sub Textboxen_links(ByVal anzahl As Integer)
        Dim i As Integer
        Dim panel1 As New Panel

        panel1.Top = 36
        panel1.Left = 140
        panel1.Width = 320
        panel1.Height = 220
        GroupBoxLinks.Controls.Add(panel1)

        For i = 0 To anzahl
            tbl = New TextBox()
            tbl.Width = 310
            tbl.Text = a(1, 3, i)
            tbl.BorderStyle = BorderStyle.FixedSingle
            tbl.Name = "Box_links" & i
            tbl.Left = 5
            tbl.Top = 5 + i * 26
            tbl.ReadOnly = True
            panel1.Controls.Add(tbl)
            '</ textbox >
            '< anzeigen >
            panel1.BringToFront()
            BringToFront()
            '</ anzeigen >
        Next


    End Sub

    Private Sub Kopier_Buttons(ByVal anzahl As Integer)
        Dim i As Integer

        Dim panel3 As New Panel
        panel3.Top = 229
        panel3.Left = 491
        panel3.Width = 31
        panel3.Height = 250

        Me.Controls.Add(panel3)

        For i = 0 To anzahl
            bu = New Button()
            bu.Width = 24
            bu.Text = "->" & i
            bu.Name = "Button" & i
            bu.Left = 1
            bu.Top = 24 + i * 26
            panel3.Controls.Add(bu)
            AddHandler bu.Click, AddressOf bu_click
            '</ textbox >
            '< anzeigen >
            panel3.BringToFront()
            BringToFront()
            '</ anzeigen >
        Next

    End Sub

    Private Sub bu_click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim i As Integer

        If TypeOf (sender) Is Button Then
            Dim btn As Button = DirectCast(sender, Button)
            MsgBox(btn.Name)
            MsgBox(btn.Text) 'Wert in Textbox
        End If

    End Sub