VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "CEmptySender"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
' *********************************************************************
'* CLASS Oggetto Sender e Receiver generico.
'* <BR/>Autore: <B>Giorgio Bernardi</B>
'* E-Mail: <A HREF="mailto:giorgio.bernardi@studio.unibo.it">Giorgio.Bernardi@studio.unibo.it</A>
'* Data  : Settembre 2004
'* <DIV CLASS="ClassDescription">
'*  Viene utilizzato se non si conosce il riferimento vero all'oggetto Sender o _
    Receiver ma solo il suo indirizzo.
'* </DIV>
' *********************************************************************
Option Explicit
Implements ISender
Implements IReceiver

'* Variabile contenente il valore della proprietà omonima
Private mstrObjectID As String

'* Restituisce l'identificativo univoco all'interno di questa applicazione dell'oggetto
Public Property Get ObjectID() As String
    ObjectID = mstrObjectID
End Property

'* Restituisce l'identificativo univoco all'interno di questa applicazione dell'oggetto
Public Property Let ObjectID(Value As String)
    mstrObjectID = Value
End Property

'* Restituisce l'identificativo univoco all'interno di questa applicazione dell'oggetto
Public Function getObjectID() As String
    getObjectID = ObjectID
End Function

Private Function IReceiver_getObjectID() As String
    IReceiver_getObjectID = ObjectID
End Function

Private Sub IReceiver_msgArrived(Env As CEnvelope)
End Sub

Private Function ISender_getObjectID() As String
    ISender_getObjectID = ObjectID
End Function