que no funciona??? ,mira esto:
y en el form esto:
Código [Seleccionar]
Public MSN As Messenger
Public Function Listar(lista As ListBox)
Dim user As MessengerAPI.IMessengerContact
Set MSN = New Messenger
For Each user In MSN.MyContacts
If user.Status = MISTATUS_ONLINE Or user.Status = MISTATUS_AWAY Or user.Status = MISTATUS_BE_RIGHT_BACK Then
lista.AddItem user.SigninName
End If
Next
End Function
y en el form esto:
Código [Seleccionar]
Private Sub Form_Load()
Call Listar(List1)
End Sub