Прокси

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
  Public Event ErrorDownload(FromPathName As String, ToPathName As String)
  Public Event DownloadComplete(FromPathName As String, ToPathName As String)

  Public Function DownloadFile(FromPathName As String, ToPathName As String)
    If URLDownloadToFile(0, FromPathName, ToPathName, 0, 0) = 0 Then
  DownloadFile = True
    RaiseEvent DownloadComplete(FromPathName, ToPathName)
    Else
  DownloadFile = False
  RaiseEvent ErrorDownload(FromPathName, ToPathName)
      End If
  End Function

Private Sub cmdDownload_Click()
Dim PicURL as String
PicURL=<генерится_адрес>
Call DownloadFile(PicURL, App.Path & "\tmpImage.jpg")
end sub