[Visual Basic]
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then
            oForm1.IMC.BeginSendFile(ofd.FileName, Me.Tag)
        End If

    End Sub

[Visual Basic]
    Private Sub IMC_OnReceiveFileRequest(ByVal Friendusername As String, ByVal FileName As String, ByVal FileSize As Long, ByVal FileTransferID As String, ByVal FileEncryption As Boolean) Handles IMC.OnReceiveFileRequest
        Dim rfr As New FrmReceiveFileRequest
        rfr.lblTXT.Text = "Username  : " & Friendusername & " Wants to send a " & vbCrLf & "File :" & FileName & vbCrLf & "File Size : " & FileSize & vbCrLf & "File Transfer ID :" & FileTransferID & vbCrLf & "File Encryption :" & FileEncryption

        If rfr.ShowDialog = Windows.Forms.DialogResult.OK Then
            IMC.BeginFileRequestAccepted(Friendusername, FileTransferID)
        Else
            IMC.BeginFileRequestRejected(Friendusername, FileTransferID)
        End If

    End Sub

[Visual Basic]
Private Sub IMC_OnFileRequestRejected(ByVal FileTransferID As String) Handles IMC.OnFileRequestRejected
        RemoveFileTransfer(FileTransferID)
       Debug.WriteLine("File Request Rejected : " & FileTransferID)
End Sub

[Visual Basic]

    Private Sub IMC_OnFileSendTransferring(ByVal FileTransferID As String, ByVal FileEncryption As Boolean, ByVal FriendUsername As String, ByVal FileName As String, ByVal BytesSent As Long, ByVal TotalBytesToSent As Long) Handles IMC.OnFileSendTransferring
        FM.FM_UpdateItem(FileTransferID, FriendUsername, String.Empty, FileName, BytesSent.ToString & " - " & TotalBytesToSent.ToString, FileEncryption)
    End Sub

    Private Sub IMC_OnFileSendComplete(ByVal FileTransferID As String, ByVal FriendUsername As String, ByVal FileName As String) Handles IMC.OnFileSendComplete
        FM.FM_DeleteItem(FileTransferID)
    End Sub

    Private Sub IMC_OnFileSendCancelled(ByVal FileTransferID As String, ByVal FriendUsername As String, ByVal FileName As String) Handles IMC.OnFileSendCancelled
        FM.FM_CancelItem(FileTransferID)
    End Sub

    Private Sub IMC_OnFileSendDisconnected(ByVal FileTransferID As String, ByVal FriendUsername As String, ByVal FileName As String) Handles IMC.OnFileSendDisconnected
        RemoveFileTransfer(FileTransferID)
        Debug.WriteLine(" MC_OnFileSendDisconnected - FileTransferID: " & FileTransferID & " FriendUsername : " & FriendUsername & " FileName : " & FileName)
    End Sub

[Visual Basic]


    Private Sub IMC_OnFilePortOpened(ByVal IP As String, ByVal Port As String) Handles IMC.OnFilePortOpened
        Debug.WriteLine("File Port Opened :" & IP & ":" & Port)
    End Sub

    Private Sub iMC_OnFileReceiveDisconnected(ByVal FileTransferID As String, ByVal FriendUsername As String, ByVal FileName As String) Handles IMC.OnFileReceiveDisconnected
        RemoveFileTransfer(FileTransferID)
      Debug.WriteLine("MC_OnFileReceiveDisconnected - FileTransferID: " & FileTransferID & " FriendUsername : " & FriendUsername & " FileName : " & FileName)
    End Sub

    Private Sub iMC_OnFileReceiveFiledata(ByVal FileTransferID As String, ByVal FileEncryption As Boolean, ByVal FriendUsername As String, ByVal FileName As String, ByVal BytesReceive As Long, ByVal TotalBytesToReceive As Long) Handles IMC.OnFileReceiveFiledata

        FM.FM_UpdateItem(FileTransferID, String.Empty, FriendUsername, FileName, BytesReceive.ToString & " - " & TotalBytesToReceive.ToString, FileEncryption)

    End Sub

    Private Sub iMC_OnFileReceiveFileTransferComplete(ByVal FileTransferID As String, ByVal FriendUsername As String, ByVal FileName As String) Handles IMC.OnFileReceiveFileTransferComplete
        FM.FM_DeleteItem(FileTransferID)
    End Sub

    Private Sub IMC_OnFileReceiveCancelled(ByVal FileTransferID As String, ByVal FriendUsername As String, ByVal FileName As String) Handles IMC.OnFileReceiveCancelled
        FM.FM_CancelItem(FileTransferID)
    End Sub