in VB6 then make a form with 1 list box and add the following code
in declarations:
quote:
Public WithEvents msn As MessengerAPI.Messenger
and then in the main part of the code add this:
quote:
Private Sub Form_Load()
Set msn = New MessengerAPI.Messenger
Dim msncontact As IMessengerContact
Dim msncontacts As IMessengerContacts
Set msncontacts = msn.MyContacts
For Each msncontact In msncontacts
List1.AddItem (msncontact.SigninName)
Next
End Sub
EDIT: forgot to mention you need to reference the Messenger API Type Library or this wont work
in VB6 Project > References > and tick Messenger API Type Library
/ –
