Shoutbox

code:

---

'This is just an example for calling the oMessenger object passed through the Initialize Function into a Variable.
'Make sure to set a reference to the MessengerAPI Type Library

Public WithEvents MessengerAPI_Interface As MessengerAPI.Messenger
Public Const MCONTACTPROP_USERTILE_PATH As Integer = 2

Public Function Initialize(ByVal nVersion As Long, _
                           ByVal sUserEmail As String, _
                           ByVal oMessenger As Object) _
                           As Boolean
    Initialize = True
    Set MessengerAPI_Interface = oMessenger
    MessengerAPI_Interface.MyProperty(MCONTACTPROP_USERTILE_PATH) = "%path%"
End Function

---

code:

---

    '//
    '// Shared Variables
    '//////////////////////////////////////////////////////////////////////
    Public Const MCONTACTPROP_USERTILE_PATH As Integer = 2
    Public Shared WithEvents oMessenger As MessengerAPI.MessengerClass

    '//
    '// Purpose: Initialization function
    '//////////////////////////////////////////////////////////////////////
    Public Function Initialize(ByVal nVersion As Integer, _
                               ByVal sUserEmail As String, _
                               ByVal oMessenger As MessengerAPI.MessengerClass) _
                               As Boolean
        Sample.oMessenger = oMessenger
        oMessenger.MyProperty(MCONTACTPROP_USERTILE_PATH) = "%path%"
        Initialize = True
    End Function

---