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 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

Private Sub Form_Load()

   'replace the first argument with the URL of the file you want to download,
   ' and the second argument with the local file you want to save this file to.

  
ret = DownloadFile("http://microsoft.com/library/homepage/images/ms-banner.gif", _ 
    "c:\filename.gif")
End Sub