' Put this in a .bas module
   ' -------------------------------------------------------------------------------
    Public 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
   ' -------------------------------------------------------------------------------
   
   ' Put this in a .bas module or Form Event code
   ' -------------------------------------------------------------------------------

    Dim strLocalFile as String
    Dim strRemoteFile As String	
    Dim lRetVal as Long
	
    strLocalFile = "\\Server\ShareName\Sarci32.exe"
    strRemoteFile = _
      "ftp://ftp.symantec.com/public/english_us_canada/antivirus_definitions/" & _
      "norton_antivirus/static/symcdefsi32.exe"

    Screen.MousePointer = vbHourglass
	
    If FileExists(strLocalFile) Then Kill strLocalFile
	
    lRetVal = URLDownloadToFile(0, strRemoteFile, strLocalFile, 0, 0)
	
    Screen.MousePointer = vbDefault
    
    If FileExists(strLocalFile) Then
        MsgBox "File Downloaded Successfully!", vbInformation+vbOkOnly, App.Title
        ' Code would go here to Shell and Run Sarci32.exe in quiet mode...
    Else
        MsgBox "File was NOT Downloaded...", vbExclamation+vbOkOnly, App.Title
        ' Code would go here to handle a download error, possibly query the lRetVal
        ' value for more detailed error information, and/or for retry attempts.
    End If
   ' -------------------------------------------------------------------------------