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

DownLoadFile "http://myserver.com/somefile.txt" , "c:/tmp/somefile.txt"

Private Sub cmdGet_Click()
    Inet1.Execute "http://www.mysite.com/folder/somefile.txt", "GET"
End Sub

Private Sub Inet1_StateChanged(ByVal State As Integer)
Dim var_data As Variant
Dim str_data As String

    If State = icResponseCompleted Then
        ' Get the first chunk.
        var_data = Inet1.GetChunk( 1024 , icString)
        str_data = str_data & var_data

        ' Get the rest of the chunks.
        Do
            DoEvents
            var_data = Inet1.GetChunk( 1024 , icString)
            If Len(var_data) =  0  Then Exit Do
            str_data = str_data & var_data
        Loop

        txtResults.Text = str_data
    End If
End Sub

Private Const STRING_SIZE =  128 
Private Const INTERNET_OPEN_TYPE_DIRECT =  1 
Private Const INTERNET_FLAG_NO_CACHE_WRITE = &H4000000
'
Private Declare Function InternetOpen Lib "wininet" 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 InternetCloseHandle Lib "wininet" (ByRef hInet As Long) As Long
'
Private Declare Function InternetReadFile Lib "wininet" _
  (ByVal hFile As Long, ByVal sBuffer As String, ByVal lNumBytesToRead As Long, lNumberOfBytesRead As Long) As Integer
'
Private Declare Function InternetOpenUrl Lib "wininet" Alias "InternetOpenUrlA" _
  (ByVal hInternetSession As Long, ByVal lpszUrl As String, ByVal lpszHeaders As String, _
  ByVal dwHeadersLength As Long, ByVal dwFlags As Long, ByVal dwContext As Long) As Long
'
Public Function SendAPIRequest(ByVal strUrl As String) As String
    Dim hOpen As Long, hFile As Long
    Dim Ret As Long, sBuffer As String *  128 
    Dim iResult As Integer, sData As String
    hOpen = InternetOpen("VB Program",  1 , vbNullString, vbNullString,  0 )
    If hOpen =  0  Then
        MsgBox "Error opening Internet connection"
        Exit Function
    End If
    hFile = InternetOpenUrl(hOpen, strUrl, vbNullString,  0 , INTERNET_FLAG_NO_CACHE_WRITE,  0 )
    If hFile =  0  Then
        MsgBox "Error opening Web page"
    Else
        InternetReadFile hFile, sBuffer, STRING_SIZE, Ret
        sData = sBuffer
        Do While Ret <>  0 
            InternetReadFile hFile, sBuffer, STRING_SIZE, Ret
            sData = sData + Mid(sBuffer,  1 , Ret)
        Loop
    End If
    InternetCloseHandle hFile
    InternetCloseHandle hOpen
    SendAPIRequest = sData
    sData = ""
End Function

Public Function SendAPIRequest(ByVal strUrl As String) As String

   hFile = InternetOpenUrl(hOpen, strUrl, vbNullString,  0 , INTERNET_FLAG_NO_CACHE_WRITE,  0 )
    If hFile =  0  Then
        MsgBox "Error opening Web page"
    Else