Public Class frmMain

   'Collezione di oggetti "clsOrganization"
    Private LOrganization As BindingList(Of clsOrganization)

    Public Sub New()
        ' Chiamata richiesta dalla finestra di progettazione.
        InitializeComponent()

        LOrganization = New BindingList(Of clsOrganization)
        LOrganization.AllowNew = True
        dgvOrg.DataSource = LOrganization
    End Sub

    Private Sub dgvOrg_DataError(sender As Object, e As System.Windows.Forms.DataGridViewDataErrorEventArgs) Handles dgvOrg.DataError
--> QUI PASSA DUE VOLTE QUANDO GENERO IO L'ECCEZIONE NELLA CLASSE clsOrganization E UNA VOLTA QUANDO VIENE SCATENATO DAL dgvOrg STESSO
        e.Cancel = True
         MsgBox(e.Exception.Message, MsgBoxStyle.Exclamation)
    End Sub
End Class


Public Class clsOrganization

    'Org. Number (Integer max 999)
    Private iOrgNumber As Integer
    <System.ComponentModel.DisplayName("Org. number")> _
    Public Property OrgNumber() As Integer
        Get
            Return iOrgNumber
        End Get
        Set(ByVal value As Integer)
            If value < 0 Or value > 999 Then
--> QUI ALZO IO L'ECCEZIONE CHE VORREI GESTIRE NELL'EVENTO "dgvOrg_DataError"; L'ESECUZIONE DEL CODICE SI FERMA SULL'ELSE SUCCESSIVO MA, PREMENDO "PLAY", PROSEGUE, SCATENANDOMI DUE EVENTI "dgvOrg_DataError": UNO CON IL TESTO DELLA MIA ECCEZIONE E UNO CON ECCEZIONE A NOTHING
                Throw New Exception("Organization No. in use by other organization or invalid" & vbCrLf &
                                    "Valid value must be between 0 and 999")
            Else
                iOrgNumber = value
            End If
        End Set
    End Property

End Class