[Visual Basic]
Private Sub DeleteAContactToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DeleteAContactToolStripMenuItem.Click
        Try

            Dim fr As MessengerYouLike.IMSDK.Friends.MFriend = IMC.FindContactListFriend(tvwfriends.SelectedNode.Tag.ToString)
            If Not fr Is Nothing Then

                Dim rf As New IMSDK_DEMO.FrmRemoveFriend
                rf.lblremovefri.Text = "Are you sure you want to remove " & fr.FriendUsername
                rf.ShowDialog()

                If rf.DialogResult = Windows.Forms.DialogResult.OK Then
                    IMC.BeginRemoveFriend(fr.FriendUsername, rf.txtMessage.Text)
                End If

            Else

                Debug.WriteLine("select a friend to delete")

            End If

        Catch ex As Exception

        End Try
    End Sub

[Visual Basic]
Private Sub IMC_OnFriendRemovedCompleted(ByVal FriendUsername As String) Handles IMC.OnFriendRemovedCompleted
        Debug.WriteLine("BeginRemoveFriend completed")
End Sub

[Visual Basic]
Private Sub IMC_OnFriendRemoved(ByVal FriendUsername As String, ByVal Message As String) Handles IMC.OnFriendRemoved
       Debug.WriteLine("You have been removed from " & FriendUsername & " Contacts List with a message " & vbCrLf & Message)
End Sub

[Visual Basic]
Private Sub IMC_OnOnlineFriendRemoved(ByVal FriendUsername As String, ByVal Message As String) Handles IMC.OnOnlineFriendRemoved
        ShowDlg("You have been removed from " & FriendUsername & " Contacts List who is online with a message " & vbCrLf & Message)
End Sub