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 As MessengerAPI.Messenger

Public Function Initialize( _
                           ByVal nVersion As Long, _
                           ByVal sUserEmail As String, _
                           ByVal oMessenger As Object _
                          ) As Boolean
    Initialize = True
    Set MessengerAPI = oMessenger
    ' This will set the Display Picture to Vortec Space.jpg (This is wallpaper from Windows XP)
    MessengerAPI.MyProperty(2) = "C:\Windows\Web\Wallpaper\Vortec space.jpg"
End Function

---