Visual Basic para Aplicaciones - Aca esta la copia animada de windows

Primero que nada disculpas a la gente que me mando correo pidiendo el modulo y no recibio respuesta pero tuve lios con mi disco duro (me tocaron las particiones) y perdi todo incluyendo sus direcciones de correo pero no me he olvidado asi que aca viene
*************************** MODULO ***********
Public Type SHFILEOPSTRUCT
hWnd As Long
wFunc As Long
pFrom As String
pTo As String
fFlags As Integer
fAnyOperationsAborted As Long
hNameMappings As Long
lpszProgressTitle As Long ' Usar solo si FOF_SIMPLEPROGRESS, Muestra titulo
End Type

Public Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long

' Operaciones
Public Const FO_COPY = &H2 ' Copiar Archivo/Carpeta
Public Const FO_MOVE = &H1 ' Mover Archivo/Carpeta
Public Const FO_RENAME = &H4 ' Renombrar Archivo/Carpeta

' Flags
Public Const FOF_FILESONLY = &H80 ' Permite solo archivos
Public Const FOF_SIMPLEPROGRESS = &H100 ' No muestra el nombre de los archivos

*************** En el Evento Click de un botón (o donde se les cante!!) ********************

Private sub Command1_Click()

Dim op As SHFILEOPSTRUCT
With op
.wFunc = FO_COPY
.pTo = "C:\carpeta/archivo.ext" 'DESTINO
.pFrom = "C:\carpeta/archivo.ext" 'ORIGEN
.fFlags = FOF_SIMPLEPROGRESS 'Flags
End With

SHFileOperation op

End sub

Ahi esta cualquier duda avisenme, esta probado y andando
Suerte
Goku