Visual Basic.NET - Ayuda con DevExpress ProgressBarControl en vb.net

Private Sub CopiarArchivoBinary()

    Dim CantidadBytePorEjecucion As Long = 2000

    Dim CantidadByteLeido As Long

    Dim MemoryTmp(CantidadBytePorEjecucion) As Byte

    Dim NombreArchivoOrigen As String = "D:\Tmp\Media\CheckList.mp4"    '± 14 Mo.

    Dim NombreArchivoObjectivo As String = "D:\Tmp\Media\CheckListNEW.mp4"

    Dim ArchivoOrigen As New FileStream(NombreArchivoOrigen, FileMode.Open, FileAccess.Read)

    Dim ArchivoObjectivo As New FileStream(NombreArchivoObjectivo, FileMode.Create, FileAccess.Write)

    ProgressBar1.Minimum = 0

    ProgressBar1.Maximum = FileLen(NombreArchivoOrigen)

    ProgressBar1.Value = 0

    Do

        CantidadByteLeido = ArchivoOrigen.Read(MemoryTmp, 0, CantidadBytePorEjecucion)

        ArchivoObjectivo.Write(MemoryTmp, 0, CantidadByteLeido)

        ProgressBar1.Value += CantidadByteLeido

    Loop Until CantidadByteLeido < CantidadBytePorEjecucion

    ArchivoObjectivo.Close()

    ArchivoOrigen.Close()

End Sub