[Visual Basic]
    Private Sub send_btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles send_btn.Click

        oForm1.iMC.BeginSendMessage(Me.Tag, sender_rtb.Text.ToString)
        reciver_rtb.Text = reciver_rtb.Text & oForm1.IMCUser.Username & " Says : " & sender_rtb.Text.ToString & vbCrLf

    End Sub

[Visual Basic]
Private Sub IMC_OnOfflineMessageQueued(ByVal FriendUsername As String, ByVal Message As String) Handles IMC.OnOfflineMessageQueued
        Debug.WriteLine("Offline Message :" & vbCrLf & Message & vbCrLf & " is Queued for  friend :" & vbCrLf & FriendUsername)
End Sub

[Visual Basic]
Private Sub IMC_OnMessageDelivered(ByVal Friendusername As String, ByVal Message As String, ByVal DeliveredDate As Date) Handles IMC.OnMessageDelivered
        Debug.WriteLine("Message : " & vbCrLf & Message & vbCrLf & "Dilivered to " & Friendusername & vbCrLf & "On Date : " & DeliveredDate, True)
End Sub

[Visual Basic]
    Private Sub IMC_OnMessageNotSent(ByVal Friendusername As String, ByVal Message As String) Handles IMC.OnMessageNotSent
        Debug.WriteLine("Message Not Sent " & vbCrLf & Message & vbCrLf & " Friendusername :" & Friendusername)
    End Sub

[Visual Basic]

Private Delegate Function DlgOnMessageReceived(ByVal From As String, ByVal Message As String) As Boolean
    Private Sub IMC_OnMessageReceived(ByVal From As String, ByVal Message As String) Handles IMC.OnMessageReceived
        Dim OnMessageReceivedDlg As New DlgOnMessageReceived(AddressOf openchat)
        Me.BeginInvoke(OnMessageReceivedDlg, New Object() {From, Message})
    End Sub

Function openchat(ByVal username As String, ByVal msg As String) As Boolean
     Debug.WriteLine("Username : " & username & " Sent you a message  : " & msg)
 End Function