Option Explicit
Private WithEvents MSN As MessengerAPI.Messenger
Private Sub Command1_Click()
Dim ContactName As String
Dim Contacto As IMessengerContact
ContactName = "spleak@hotmail.com"
For Each Contacto In MSN.MyContacts
If Contacto.SigninName = ContactName Then
Contacto.Blocked = True
End If
Next
End Sub
Private Sub Form_Load()
Set MSN = New Messenger
End Sub