Nadaila escreveu:Private Sub Command1_Click()
Dim ObjMSN As MessengerAPI.Messenger
Dim MSNContact As MessengerAPI.IMessengerContact
Dim MSNContacts As MessengerAPI.IMessengerContacts

Set ObjMSN = New MessengerAPI.Messenger

Set MSNContacts = ObjMSN.MyContacts

List1.Clear

For Each MSNContact In MSNContacts
List1.AddItem (MSNContact.SigninName)

DoEvents
Next
End Sub