Public Class CDateiCopy
    Public Shared Sub cmdCopy(ByVal strFrom As String, ByVal strTo As String)
        Dim lngFileSize As Long
        Dim intLoopCtr As Integer
        Dim intBufferCount As Integer
        Dim strInByte As String
        Dim i As Integer, k As Integer
        strInByte = Space(256)
        lngFileSize = FileLen(strFrom)
        intBufferCount = lngFileSize / 256
        prgStatus.Minimum = 1
        prgStatus.Maximum = 1 + intBufferCount
        FileOpen(1, strFrom, OpenMode.Binary)
        FileOpen(2, strTo, OpenMode.Binary)
        lblDisplay.Text = "Kopiere... " & strFrom
        lblDisplay.Visible = True
        prgStatus.Visible = True
        For intLoopCtr = 1 To intBufferCount + 1
            FileGet(1, strInByte)
            FilePut(2, strInByte)
            prgStatus.Value = intLoopCtr
            Application.DoEvents()
            For i = 1 To 60000
                k = 1
            Next
        Next intLoopCtr
        FileClose(1)  ' Close file.
        FileClose(2)  ' Close file.
        prgStatus.Visible = False
        lblDisplay.Visible = False
        MsgBox("Copy function complete", MsgBoxStyle.Information)
    End Sub
End Class