Imports System.Windows.Forms
Public Class CDateiCopy
    Public Shared Sub cmdCopy(ByVal strFrom As String, _
    ByVal strTo As String, _
    Optional ByRef lblDisplay As System.Windows.Forms.Label = Nothing, _
    Optional ByRef prgStatus As System.Windows.Forms.ProgressBar = Nothing)
        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)
        If Dir(strTo) <> "" Then
            If MsgBox(strTo & vbCrLf & _
             " already exists. Copy over old file?", _
               MsgBoxStyle.OKCancel) = MsgBoxResult.Cancel Then
                Exit Sub
            End If
        End If
        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)
        FileClose(2) 
        prgStatus.Visible = False
        lblDisplay.Visible = False
        MsgBox("Copy function complete", MsgBoxStyle.Information)
    End Sub
End Class