timeout på download

Hejsa

Jeg har følgene kode som downloader et billedet fra nettet. Er det muligt at lave en timeout på den på en eller anden måde???

Private 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
       
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Public Function DownloadFile(url As String, LocalFilename As String)
  URLDownloadToFile 0, url, LocalFilename, 0, 0
End Function

...
DownloadFile url, "c:/test.jpg"
...

Mvh
Royal