VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "Caop4vbMessage"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
' ==============================================================================
'   Caop4vbMessage implementation ver 1.0
'
'   NOTES:
'   - Don't change this class name, Caop4vbMessage.
'
' ==============================================================================
Option Explicit

Implements CaoProv4VB.ICaop4vbMessage


' ------------------------------------------------------------------------------
'   Constructor / Destructor
' ------------------------------------------------------------------------------

' Constructor
Private Sub Class_Initialize()

End Sub

' Destructor
Private Sub Class_Terminate()

End Sub


' ------------------------------------------------------------------------------
'   ICaop4vbMessage Implementation
' ------------------------------------------------------------------------------

' Initialize
'
' NOTE: this function should be called in this DLL.
Private Sub ICaop4vbMessage_FinalInitialize(pVal As Variant)

End Sub

' Terminate
Private Sub ICaop4vbMessage_FinalTerminate()

End Sub

' Clear
Private Sub ICaop4vbMessage_FinalClear()

End Sub

' Reply
Private Sub ICaop4vbMessage_FinalReply(ByVal vntData As Variant)

End Sub

' Get DateTime
Private Function ICaop4vbMessage_FinalGetDateTime() As Variant

End Function

' Get Description
Private Function ICaop4vbMessage_FinalGetDescription() As String

End Function

' Get Destination
Private Function ICaop4vbMessage_FinalGetDestination() As String

End Function

' Get Number
Private Function ICaop4vbMessage_FinalGetNumber() As Long

End Function

' Get Source
Private Function ICaop4vbMessage_FinalGetSource() As String

End Function

' Get Value
Private Function ICaop4vbMessage_FinalGetValue() As Variant

End Function


' ------------------------------------------------------------------------------
'   Public Functions
' ------------------------------------------------------------------------------


' ------------------------------------------------------------------------------
'   Private Functions
' ------------------------------------------------------------------------------