Shoutbox

code:

---

Private WithEvents MSN As MessengerAPI.Messenger

---

code:

---

Set MSN = New oMessenger

---

code:

---

Private Sub MSN_OnIMWindowCreated(ByVal pIMWindow As Object)
    Dim MSNCont As IMessengerContact
    Dim MSNConvo As IMessengerConversationWnd
    Set MSNConvo = pIMWindow
    For Each MSNCont In MSNConvo.Contacts
        MsgBox "Friendly Name: " & MSNCont.FriendlyName & vbCrLf & vbCrLf & "Signin Name: " & MSNCont.SigninName
    Next
End Sub

---