Private Sub Copy()
        Dim sSourceFile As String = "X.xxx"
        Dim sTargetFile As String = "Y.xxx"
        Dim oInfo As New FileInfo(sSourceFile)
        ProgressBar1.Maximum = oInfo.Length() / 1024
        Dim fsr = New FileStream(sSourceFile, FileMode.Open, FileAccess.Read)
        Dim r As New BinaryReader(fsr)
        Dim fsw As New FileStream(sTargetFile, FileMode.CreateNew)
        Dim w As New BinaryWriter(fsw)
        Dim bBuffer(1024) As Byte
        Dim nPos As Integer = 0
        While nPos < oInfo.Length()
            nPos += r.Read(bBuffer, nPos, 1024)
            w.Write(bBuffer)
            ProgressBar1.Value += 1
        End While
        w.Close()
        r.Close()
        fsw.Close()
        fsr.Close()
    End Sub