Shoutbox

Set a reference (Project > References) to Messenger API

code:

---

Public WithEvents objMSN As Messenger

Private Sub Form_Load()
   Set objMSN = New Messenger
   LoadContact
End Sub

Private Sub LoadContact()
Dim MsgContacts As IMessengerContacts
Dim MsgContact As IMessengerContact

   Set MsgrContacts = objMSN.MyContacts
   
   For Each MsgrContact In MsgrContacts
      If MsgrContact.Status = MISTATUS_ONLINE Then
           List1.AddItem MsgrContact.SigninName ' Dempsey
      End If
   Next
End Sub

---

This can also be done in the Plus! Plugin API but I dont have time to code it and post it so take that and convert it.