Public Class cDateiCopy
        Public Shared Function cmdCopy(ByVal strFrom As String, _
        ByVal strTo As String, ByVal overwrite As Boolean, _
        Optional ByRef lblDisplay As Label = Nothing, _
        Optional ByRef prgStatus As ProgressBar = Nothing) As Boolean

intBufferCount = lngFileSize / 256
prgStatus.Minimum = 1
prgStatus.Maximum = 1 + intBufferCount
FileOpen(1, strFrom, OpenMode.Binary)
FileOpen(2, strTo, OpenMode.Binary)
For intLoopCtr = 1 To intBufferCount + 1
    FileGet(1, strInByte)
    FilePut(2, strInByte)
    prgStatus.Value = intLoopCtr
    Application.DoEvents()
Next intLoopCtr
FileClose(1)
FileClose(2)