hai ragione il codice è il seguente...
Private Sub Form_Load()
Set msn = New MessengerAPI.Messenger
'Inserisco nella combobox gli stati
cbostato.AddItem "In linea", 0
cbostato.AddItem "Occupato", 1
cbostato.AddItem "Non al computer", 2
cbostato.AddItem "Torno subito", 3
cbostato.AddItem "Al telefono", 4
cbostato.AddItem "A pranzo/cena", 5
cbostato.AddItem "Invisibile", 6
'Carico la lista degli utenti
Dim msncontact As IMessengerContact
Dim msncontacts As IMessengerContacts
Set msncontacts = msn.MyContacts
For Each msncontact In msncontacts
lstContatti.AddItem (msncontact.SigninName)
Next
End Sub
le api di msn e le librerie sn già attive
Ultima modifica effettuata da shadow.90. il 30/01/2009 alle 23:56 |