Shoutbox

Ok this example will put the history in a text box.

code:

---

Private oMessenger As MessengerAPI.Messenger

Private Sub Form_Load()
Dim oConvo As MessengerAPI.IMessengerConversationWnd
Set oMessenger = New MessengerAPI.Messenger
Set oConvo = oMessenger.InstantMessage("contact@hotmail.com") 'Makes a new im window is one isnt open
Text1.Text = oConvo.History
End Sub

---

And you will need to add a referance to the messenger api bye checking "Messenger API Type libary"