Visual Basic - Copiar carpeta con API

Hola, ¿hay alguna forma de copiar una carpeta con todo su contenido a otra mediante una API?, ya se hacerlo sin API pero no me dice el progeso de copiado, ¿Podeis ayudarme?

Lo puedes hacer con la API CopyFileEx, pero requiere de una función callback para llevar el progreso de copiado.

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 Long, lpData As Any, ByRef pbCancel As Long, ByVal dwCopyFlags As Long) As Long
Public bCancel As Long

Public Function CopyProgressRoutine(ByVal TotalFileSize As Currency, ByVal TotalBytesTransferred As Currency, ByVal StreamSize As Currency, ByVal StreamBytesTransferred As Currency, ByVal dwStreamNumber As Long, ByVal dwCallbackReason As Long, ByVal hSourceFile As Long, ByVal hDestinationFile As Long, ByVal lpData As Long) As Long
' Tu código
   DoEvents
   CopyProgressRoutine = PROGRESS_CONTINUE
End Function