Benötigte API-Deklarationen und Konstanten
    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 Integer, _
       ByVal TotalBytesTransferred As Integer, _
       ByVal StreamSize As Integer, _
       ByVal StreamBytesTransferred As Integer, _
       ByVal dwStreamNumber As Integer, _
       ByVal dwCallbackReason As Integer, _
       ByVal hSourceFile As Integer, _
       ByVal hDestinationFile As Integer, _
       ByVal lpData As Long) As Integer
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        ' Datei kopieren
        Dim nResult As Integer = CopyFileEx("D:\DB1.mdb", _
        "D:\DB2.mdb", _
        AddressOf Fortschrittsanzeige, _
         0, _
        bCancel, _
        COPY_FILE_RESTARTABLE)
    End Sub
 
    ' Datei kopieren mit Fortschrittsanzeige
    Public Function Fortschrittsanzeige( _
      ByVal TotalFileSize As Integer, _
      ByVal TotalBytesTransferred As Integer, _
      ByVal StreamSize As Integer, _
      ByVal StreamBytesTransferred As Integer, _
      ByVal dwStreamNumber As Integer, _
      ByVal dwCallbackReason As Integer, _
      ByVal hSourceFile As Integer, _
      ByVal hDestinationFile As Integer, _
      ByVal lpData As Long) As Integer
 
        Fortschrittsanzeige = PROGRESS_CONTINUE
    End Function