Visual Basic 6 - vb6 problema scarico file da web

salve uso il seguente codice per scaricare un file da un siot web.
A volte però su alcuni computer sembra non scaricarlo, in realta lo scarica anche se non lo rende visibile a risorsse del computer, non è visibile penso perchè ho visto che sull'icona del file viene aggiunto un luchetto. come potrei risolvere ?

Option Explicit
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 Sub Command1_Click()
Dim res As Long
Dim URL As String
Dim LocalFilename As String
LocalFilename = "c:\" & "provaup.zip"
URL = "xxxxxxxxxxx.it/upgrade/…;
res = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
End Sub

Il problema non è nel codice che scrivi tu, ma nella libreria "urlmon" (nel codice postato, infatti, non viene fatto altro che passare parametri a un metodo ricavato da questa libreria); se la libreria è scritta da te, l'errore è in quella; se è di terze parti, cerca maggiori informazioni e documentazione su di essa.

prova con questo

Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef lpSFlags As Long, ByVal dwReserved As Long) As Long
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 Sub Command1_Click()
Dim res As Long
Dim url As String
Dim LocalFilename As String
LocalFilename = "paaaaath"
url = "url..."
res = URLDownloadToFile(0, url, LocalFilename, 0, 0)
End Sub

ciao...