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 Const INTERNET_OPEN_TYPE_PRECONFIG = 0
     Private Const INTERNET_OPEN_TYPE_DIRECT = 1
     Private Const INTERNET_OPEN_TYPE_PROXY = 3
     Private Const scUserAgent = "VB Project"
     Private Const INTERNET_FLAG_RELOAD = &H80000000
     Private Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As Long
     Private Declare Function InternetOpenUrl Lib "wininet.dll" Alias "InternetOpenUrlA" (ByVal hOpen As Long, ByVal sUrl As String, ByVal sHeaders As String, ByVal lLength As Long, ByVal lFlags As Long, ByVal lContext As Long) As Long
     Private Declare Function InternetReadFile Lib "wininet.dll" (ByVal hFile As Long, ByVal sBuffer As String, ByVal lNumBytesToRead As Long, ByVal lNumberOfBytesRead As Long) As Integer
     Private Declare Function InternetCloseHandle Lib "wininet.dll" (ByVal hInet As Long) As Integer

Private Sub OpenURL(ByVal sUrl As String)
         Dim hOpen As Long
         Dim hOpenUrl As Long
         Dim bDoLoop As Boolean

         'Dim sReadBuffer(2048) As String

         ' Dim sBuffer As String
         Dim DownLoadFile As Boolean
          
         hOpen = InternetOpen(scUserAgent, INTERNET_OPEN_TYPE_PRECONFIG, vbNullString, vbNullString, 0)
         hOpenUrl = InternetOpenUrl(hOpen, sUrl, vbNullString, 0, INTERNET_FLAG_RELOAD, 0)
         bDoLoop = True

         If URLDownloadToFile(0, "http://www.myjulia.ru/data/cache/2008/11/11/14155_5000-150x0.jpg", "c:\image.jpg", 0, 0) = 0 Then
             DownLoadFile = True
         Else
             DownLoadFile = False
         End If
         MsgBox(DownLoadFile)
         If hOpenUrl <> 0 Then
             InternetCloseHandle(hOpenUrl)
         End If
         If hOpen <> 0 Then
             InternetCloseHandle(hOpen)
         End If

     End Sub