Public Declare Function CopyFileEx Lib "kernel32.dll" _
      Alias "CopyFileExA" ( _
      ByVal lpExistingFileName As String, _
      ByVal lpNewFileName As String, _
      ByVal lpProgressRoutine As Long, _
      ByVal lpData As Object, _
      ByRef pbCancel As Long, _
      ByVal dwCopyFlags As Long) As Long
 
    Sub Klick() Handles cmdCopy.Click
 
        CopyFileEx("V:\a\x.txt", "V:\b\x.txt", 0, 0, 0, &H1)
 
    End Sub