Public Function pRecuperaDescrizioneDaGRD(ByVal NomeGrd As DataGridView, ByVal NomeColonna As String) As String

        Dim Riga As DataGridViewRow
        Dim Cella As DataGridViewCell


        Riga = NomeGrd.CurrentRow

        If Riga.Index < 0 Then
            Return ""
        End If


        Cella = NomeGrd.Item(NomeColonna, Riga.Index)
        If CStr(Cella.Value) = "" Then
            Return ""
        Else
            pRecuperaDescrizioneDaGRD = Cella.Value
        End If

    End Function