Private Sub DataGridView1_CellEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellEnter

            Dim riga As Integer = DataGridView1.CurrentRow.Index
            Me.TextBox5.Text = DataGridView1("Descrizione", riga).Value
            Me.TextBox6.Text = DataGridView1("Um", riga).Value
            Me.TextBox16.Text = DataGridView1("Id_Cat", riga).Value
            Me.TextBox3.Text = DataGridView1("Categoria", riga).Value
            Me.TextBox17.Text = DataGridView1("idSubCat", riga).Value
            Me.TextBox12.Text = DataGridView1("id_Forn", riga).Value
            Me.TextBox4.Text = DataGridView1("SubCategoria", riga).Value
            Me.TextBox18.Text = DataGridView1("Ubicazione", riga).Value
            Me.TextBox8.Text = DataGridView1("ScortaMin", riga).Value

       End If
    End Sub