Transactional Objects in VB.NET

'***Header************************************************************************************
'
'       Name        - TransactionalAttribute 
'       Description - This is an Attribute class that can be used to flag fields/properties
'                     as entering into the transaction. By default all fields (in a deep tran) 
'                     and all readable/writeable properties (in a shallow tran) automaticaly
'                     enter into a trnasaction.
'                     By using this attribute we can explicitly declare that a a field/prop
'                     forms part of the transaction, or mark it as not being part of the
'                     Transaction. Example:
'
'                     <Transaction.Transactional(True)>  Private Var as String
'                     <Transaction.Transactional(False)> Private Var2 as String
'                     Private Var3 as String
'
'                     In this example Var and Var3 will enter into the transaction while
'                     Var2 will not
'
'       Date        - 18 Oct 2004
'       Author      - Tom Mulledy (tmulledy[AT]stab-room.com
'
'       Modification Log
'       -------------------------------------------------------------------------------
'       ModDate     -
'       ModBy       -
'       ModDesc     -
'
'********************************************************************************************

<AttributeUsage(AttributeTargets.Field + AttributeTargets.Property + AttributeTargets.Class)> _
Public Class TransactionalAttribute

    Inherits System.Attribute

    Private m_bTransactional As Boolean = False

    Public Property Transactional() As Boolean
        Get
            Return m_bTransactional
        End Get
        Set(ByVal Value As Boolean)
            m_bTransactional = Value
        End Set
    End Property


    Public Sub New(ByVal Transact As Boolean)
        m_bTransactional = Transact
    End Sub

End Class