Private Sub dtUtenti_CellMouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles dtUtenti.CellMouseDoubleClick

        Dim i As Integer
        Dim NomeCampo As String
        Dim ValoreCampo As String

        If e.Button = Windows.Forms.MouseButtons.Right Then Exit Sub

        Me.Cursor = Cursors.WaitCursor

        fDettUtente.Show()

        For i = 0 To dtUtenti.Columns.Count - 1

            NomeCampo = dtUtenti.Columns(i).Tag
            ValoreCampo = dtUtenti.Item(i, dtUtenti.CurrentRow.Index).Value & ""

            Call ImpostaValoreInControllo(fDettUtente, NomeCampo, ValoreCampo, True)

        Next

        Me.Cursor = Cursors.Default


    End Sub