[Visual Basic]
Private Sub UnblockFriendToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UnblockFriendToolStripMenuItem.Click
        With tvwfriends.SelectedNode
            Try
                Dim fr As MessengerYouLike.IMSDK.Friends.MFriend

                If (.Text.ToString) = "" Then
                    Exit Sub
                End If

                fr = IMC.FindContactListFriend(.Tag.ToString)
                If fr Is Nothing Then
                    Exit Sub
                End If

                IMC.BeginFriendBlockUnBlock(fr.FriendUsername, False)

            Catch ex As Exception

            End Try
        End With
    End Sub

[Visual Basic]
    Private Sub IMC_OnFriendUnBlocked(ByVal FriendUsername As String) Handles IMC.OnFriendUnBlocked
       Debug.WriteLine("Friend " & FriendUsername & " Unblocked")
    End Sub

[Visual Basic]
Private Sub IMC_OnFriendAMIUnBlocked(ByVal FriendUsername As String) Handles IMC.OnFriendAMIUnBlocked
        Debug.WriteLine("You have been Unblocked by :" & FriendUsername)
End Sub