Portal
Oh god, tinha que ser pra resolver o problema '-'
Vlw, com esse daí funfa tb no vb6.
Vlw, com esse daí funfa tb no vb6.
4 participantes
Mostrar contatos do msn
Paulo Soreto- Lenda
- Mensagens : 1980
Créditos : 367
Ficha do personagem
Nível: 1
Experiência:
(0/0)
Vida: (30/30)
_________________
Valentine- Administrador
- Medalhas :
Mensagens : 5345
Créditos : 1164
Drago você é o meu heroi '.'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
Vou testar aqui