code:Private WithEvents objMessenger As MessengerAPI.Messenger
Private Sub Form_Load()
Set objMessenger = new MessengerAPI.Messenger
End Sub
should get you started. then you can use this to block someone
code:Private Sub BlockContact (ByVal strContact As String)
objMessenger.GetContact(strContact, objMessenger.Services.PrimaryService).Blocked = True
End Sub
