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) 'Button + i
        Dim number As Int = Convert.ToInt32(btn.Name.Replace("Button", "")) 'Entferne "Button" und wandel in Int
        KopiereTextboxInhalt(number)
        End If

    End Sub

    Private Sub KopiereTextboxInhalt(ByVal i As Integer)

        Dim panelFound As Panel
    Dim tblFound As Textbox
        For Each ctl As Control In GroupBoxLinks.Controls
        If ctl Is Panel Then
            panelFound = ctl

            For Each tbl As Control in panelFound.Controls
                If tbl Is Textbox Then
                    tblFound = tbl
                    MsgBox(tblFound.Text)
                    Exit For
                End If
            Next tbl
            Exit For
        End If
    Next ctl

    End Sub