Visual Basic - Eliminar múltiples Archivos

Necesito eliminar multiples archivos ("simultaneamente") utililizando
la siguiente API:

' Variables, constantes y declaraciones para el API
Private Type SHFILEOPSTRUCT
hWnd As Long ' hWnd del formulario
wFunc As Long ' Función a usar: FO_COPY, etc.
pFrom As String ' Fichero(s) de origen
pTo As String ' Fichero(s) de destino
' fFlags para Windows 2000/XP declararlo como Long
' para Windows 9x declararlo como Integer,
' aunque también funciona si se declara como Long (al menos en W98)
'fFlags As Integer ' Opciones
fFlags As Long
fAnyOperationsAborted As Boolean ' Si se ha cancelado
hNameMappings As Long '
lpszProgressTitle As String ' Sólo si se usa FOF_SIMPLEPROGRESS
End Type

'****************************************'*
Public Const FO_COPY = &H2 '*
Public Const FO_DELETE = &H3 '*
Public Const FO_RENAME = &H4 '*
Public Const FO_MOVE = &H1 '*
Public Const FOF_ALLOWUNDO = &H40& '* Permitir deshacer
Public Const FOF_SIMPLEPROGRESS = &H100& '* No mostrar los nombres de los archivos
Public Const FOF_RENAMEONCOLLISION = &H8& '*Renombra el archivo si ya existe
Public Const FOF_MULTIDESTFILES = &H1& '*
'****************************************'*


para que windows coloque el mensaje tradicional de:
¿Está seguro seguro de que desea eliminar estos Nº elementos?
Pero no se como pasarle la ruta de todos los archivos
así q me gustaria q me enviaran algún EJemp para tal fin.

Gracias de antemano...

Hola, tenes que separar los archivos mediante chr(0). ejemplo. pone 2 archivos en el c:, llamado a.txt y b.txt


Private Type SHFILEOPSTRUCT
hWnd As Long
wFunc As Long
pFrom As String
pTo As String
fFlags As Integer
fAborted As Boolean
hNameMaps As Long
sProgress As String
End Type
Private Const FO_DELETE = &H3
Private Const FOF_ALLOWUNDO = &H40
Private Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long
Private Sub Form_Load()

Dim SHFileOp As SHFILEOPSTRUCT
With SHFileOp

.wFunc = FO_DELETE

.pFrom = "c:\a.txt" & Chr(0) & "c:\b.txt"

.fFlags = FOF_ALLOWUNDO
End With

SHFileOperation SHFileOp
End Sub

Salu2