Public Class MyException
  Inherits System.ApplicationException

  Private _IDRiferimento As Integer

  Public ReadOnly Property IDRiferimento() As Integer
    Get
      Return _IDRiferimento
    End Get
  End Property

  Sub New(ByVal Message As String, ByVal innerException As Exception, ByVal idRiferimento As Integer)
    MyBase.New(Message, innerException)
    Me._IDRiferimento = idRiferimento
  End Sub

  Sub New(ByVal Message As String, ByVal idRiferimento As Integer)
    MyBase.New(Message)
    Me._IDRiferimento = idRiferimento
  End Sub

  Sub New(ByVal idRiferimento As Integer)
    MyBase.New()
    Me._IDRiferimento = idRiferimento
  End Sub

End Class