Udskrivning af PDF'er fra VB 6.0 Hvordan?

Har fundet denne kode her:

Option Explicit
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Sub Command2_Click()
ShellExecute hwnd, "print", "I:\CRM\DATA\DATA\Produkter\US1S.0050.3.001.pdf", "", "", vbNormalFocus
End Sub

MEN hvordan får jeg eks 2 filder skrevet ud?

Lukker ... men se her:
http://www.eksperten.dk/spm/507875