Código: Seleccionar todo

Option Explicit
Public WithEvents msn As Messenger
Dim msncontact As MessengerAPI.IMessengerContact
Dim msncontacts As MessengerAPI.IMessengerContacts

Dim strList As String
Private Sub Form_Load()
'On Local Error Resume Next
[COLOR="Yellow"]Set msn = New MessengerAPI.Messenger[/COLOR] ' error in this line : Run time error 7, Out of memory
Set msncontacts = msn.MyContacts
        
            strList = ""
            Text1.Text = ""
            For Each msncontact In msncontacts
            strList = msncontact.SigninName & Chr(255) & msncontact.FriendlyName & Chr(255) & msncontact.Status & Chr(255)
            Text1.Text = Text1.Text & strList
            Next
            
                    
End Sub