[Visual Basic]
Friend Sub CancelFileTransfer(ByVal FileTransferID As String)

        For i As Integer = 0 To IMCUser.FileTransfers.GetCount - 1
            Try

                If IMCUser.FileTransfers.Item(i).FileTransferID = FileTransferID Then
                    IMCUser.FileTransfers(i).CancelFileTransfer(FileTransferID)
                End If
            Catch ex As Exception
                Debug.WriteLine(ex.ToString, True)
            End Try

        Next

    End Sub