Public Const PROGRESS_CANCEL = 1
    Public Const PROGRESS_CONTINUE = 0
    Public Const PROGRESS_QUIET = 3
    Public Const PROGRESS_STOP = 2
    Public Const COPY_FILE_FAIL_IF_EXISTS = &H1
    Public Const COPY_FILE_RESTARTABLE = &H2
 
    Public Declare Function CopyFileEx Lib "kernel32.dll" _
      Alias "CopyFileExA" ( _
      ByVal lpExistingFileName As String, _
      ByVal lpNewFileName As String, _
      ByVal lpProgressRoutine As Fortschritt, _
      ByVal lpData As Integer, _
      ByRef pbCancel As Integer, _
      ByVal dwCopyFlags As Integer) As Integer
 
    Public bCancel As Integer
 
    Public Delegate Function Fortschritt( _
       ByVal TotalFileSize As Long, _
       ByVal TotalBytesTransferred As Long, _
       ByVal StreamSize As Long, _
       ByVal StreamBytesTransferred As Long, _
       ByVal dwStreamNumber As Integer, _
       ByVal dwCallbackReason As Integer, _
       ByVal hSourceFile As Integer, _
       ByVal hDestinationFile As Integer, _
       ByVal lpData As Integer) As Integer
 
 
    ' Datei kopieren mit Fortschrittsanzeige
    Public Function Fortschrittsanzeige( _
      ByVal TotalFileSize As Long, _
      ByVal TotalBytesTransferred As Long, _
      ByVal StreamSize As Long, _
      ByVal StreamBytesTransferred As Long, _
      ByVal dwStreamNumber As Integer, _
      ByVal dwCallbackReason As Integer, _
      ByVal hSourceFile As Integer, _
      ByVal hDestinationFile As Integer, _
      ByVal lpData As Integer) As Integer
            pb1.Value = 100 * TotalBytesTransferred / TotalFileSize
            Return 0
    End Function
 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        ' Datei kopieren
        Dim nResult As Integer = CopyFileEx("C:\Work Dev\VSNet" & _
          "Dev\Test\nwind.mdb", "C:\Work Dev\VSNet Dev\Temp\nwind.mdb", _
        AddressOf Fortschrittsanzeige, _
         0, _
        bCancel, _
        COPY_FILE_RESTARTABLE)
        If nResult = 0 Then
            nResult = Marshal.GetLastWin32Error()
        End If
    End Sub