Visual Basic

Thank you to everyone for your interest
But it wasn't the answer I would have expected from experienced people like you.
Thanks anyway

/p.s) But if instead of cloning I asked for a sort of (Textbox) Dynamic with at least 5 possibility of creating (Textbox) on request!
What would have changed?

I'll explain :
If I press the key inserted in the form and I create the first dynamic (Textbox)
How can I go about creating a new one at least five times the same size as the first?

I tried to write something like this; But it is valid only for the first dynamic (Textbox)
Therefore I would miss being able to create all the others every time I press the create button.
Thank you

Private Sub Ricette_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Try
            DS = New RicetteDataSet
            Me.IngedientiRicettaDataGridView.Visible = True
            If RiceID = 0 Then
                TaRicette.Fill(DS.Ricetta)
            Else
                TaRicette.FillBy1(DS.Ricetta, RiceID)
                RiceID = 0
            End If

            TaIngredienti.Fill(DS.Ingedienti)
            TaIngredientiRicetta.Fill(DS.IngedientiRicetta)
            TaUm.Fill(DS.Um)
            TaTipoCottura.Fill(DS.TipoCottura)
            TaCategoria.Fill(DS.Categorie)

            '------------------------------------------------------------------------
            IngredientiBindingSource.DataMember = "Ingedienti"
            IngredientiBindingSource.DataSource = DS

            TipoCotturaBindingSource.DataSource = DS
            TipoCotturaBindingSource.DataMember = "TipoCottura"

            CategorieBindingSource.DataMember = "Categorie"
            CategorieBindingSource.DataSource = DS

            UmBindingSource.DataSource = DS
            UmBindingSource.DataMember = "Um"
            '------------------------------------------------------------------------
            Me.RicettaBindingSource.DataSource = DS
            Me.RicettaBindingSource.DataMember = "Ricetta"
            Me.RicettaBindingSource.Position = pos
            'Me.RicettaBindingSource.MoveLast()

            IngredientiRicettaBindingSource.DataSource = RicettaBindingSource
            IngredientiRicettaBindingSource.DataMember = "FK_IngedientiRicetta_Ricetta"
            '------------------------------------------------------------------------


        Catch nhex As InvalidOperationException
            MsgBox(nhex.Message)
        Catch ex As Exception
            Err(ex, "Form Load" & Me.Name)
        End Try
    End Sub
	'----- Saving IngedientiRicettaDatagridView to IngedientiRicetta SQL Table-----
	
	Private Sub BtnSalvaIngredienti_Click(sender As Object, e As EventArgs) Handles BtnSalvaIngredienti.Click
        Try
            Validate()
            RicettaBindingSource.EndEdit()
            CategorieBindingSource.EndEdit()
            UmBindingSource.EndEdit()
            TipoCotturaBindingSource.EndEdit()
            IngredientiBindingSource.EndEdit()

            IngredientiRicettaBindingSource.EndEdit()
            TableAdapterManager.UpdateAll(DS)
            'TaIngredientiRicetta.Update(DS.IngedientiRicetta)

        Catch nhex As InvalidOperationException
            MsgBox(nhex.Message)

        Catch ex As Exception
            Err(ex, Name)
        End Try

    End Sub
	
'-----------------------------------------------------
'Adding new row to IngedientiRicettaDataGridView
'-----------------------------------------------------
    Private Sub IngedientiRicettaDataGridView_DefaultValuesNeeded(sender As Object, e As DataGridViewRowEventArgs) Handles IngedientiRicettaDataGridView.DefaultValuesNeeded
        Try
            With e.Row
                .Cells("IngredienteRicettaQtaDataGridViewTextBoxColumn").Value = 0
                .Cells("IngredienteNome").Value = String.Empty
                .Cells("IngredienteRicettaNoteDataGridViewTextBoxColumn").Value = String.Empty
            End With

        Catch ex As Exception
            Err(ex, Name)
        End Try

    End Sub