Option Explicit

Private WithEvents MSN As MessengerAPI.Messenger

Private Sub Form_Load()
    Set MSN = New Messenger
End Sub

Private Sub MSN_OnContactBlockChange(ByVal hr As Long, ByVal pContact As Object, ByVal pBoolBlock As Boolean)
    Dim Contacto As IMessengerContact
    
    Set Contacto = pContact
    
    Select Case pBoolBlock 'Se bloqueo o se desbloqueo?
        Case True 'Se bloqueo
            MsgBox Contacto.SigninName & " ha sido bloqueado"
        Case False 'Se desbloqueo
            MsgBox Contacto.SigninName & " ha sido desbloqueado"
    End Select
End Sub

Private Sub MSN_OnMyFriendlyNameChange(ByVal hr As Long, ByVal bstrPrevFriendlyName As String)
    'Funciona solo para el Windows Messenger
End Sub

Private Sub MSN_OnMyStatusChange(ByVal hr As Long, ByVal mMyStatus As MessengerAPI.MISTATUS)
    MsgBox mMyStatus 'Devuelve el numero de estado al que se cambio.
End Sub