DownLoading Pics

[SeaHag]

What is the most efficient way to down load
jpegs from the internet.
I need to download 50 pics at about 15k a piece.

As of now i am using......

Public Declare Function URLDownloadToFile Lib "urlmon" Alias _
    "URLDownloadToFileA" (ByVal pCaller As Long, _
    ByVal szURL As String, _
    ByVal szFileName As String, _
    ByVal dwReserved As Long, _
    ByVal lpfnCB As Long) As Long
 
 
Public Function DownloadFile(URL As String, _
    LocalFilename As String) As Boolean
 
    Dim lngRetVal As Long
    
    lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
    
    If lngRetVal = 0 Then DownloadFile = True
 
End Function

This takes about 12 sec(at worst) on an OK connection.
Is there a way I can speed this process up?

Thanks in advance

Seahag