Private Sub Command1_Click()
       
    'Propiedades para el control inet ( AccessType y URL )
    With Inet1
        .AccessType = icUseDefault
        'Indicamos el url del archivo
        .URL = Trim(Text1.Text)
        'Indicamos que vamos a descargar o recuperar un archivo desde una url
        .Execute , "GET"
    End With
End Sub
  
Private Sub Form_Load()
  
    Command1.Caption = " Descargar "
    Me.Caption = " Ejemplo del control Inet para " & _
                 "descargar un fichero con progreso"
  
End Sub
  
  
Private Sub Inet1_StateChanged(ByVal State As Integer)
  
On Error GoTo Err_Sub
  
    Dim tempArray() As Byte ' Un array para grabar los datos en un archivo
    Dim bDone As Boolean
    'Para el tamaño del archivo en bytes que se usa para el array
    Dim filesize As Long
    ' Acá almacenamos los datos
    Dim vtData As Variant
  
    Select Case State
  
        Case icResponseCompleted
            bDone = False
            'Para saber el tamaño del fichero en bytes
            filesize = Inet1.GetHeader("Content-length")
            'Creamos y abrimos un nuevo archivo en modo binario
            Open Text2.Text For Binary As #1
           
            ' Leemos de a 1 Kbytes. El segundo parámetro indica _
            el tipo de fichero. Tipo texto o tipo Binario, en este caso binario
            vtData = Inet1.GetChunk(1024, icByteArray)
  
            DoEvents
            
            'Si el tamaño del fichero es 0 ponemos bDone en _
            True para que no entre en el bucle
            If Len(vtData) = 0 Then
                bDone = True
            End If
               
            With ProgressBar1
                .Value = 0
                .Max = filesize
            End With
               
            Do While Not bDone
                'Almacenamos en un array el contenido del archivo que se va leyendo
                tempArray = vtData
                'Escribimos los datos en el archivo
                Put #1, , tempArray
                'Leemos  datos de a 1 kb (1024 bytes)
                vtData = Inet1.GetChunk(1024, icByteArray)
            
                DoEvents
                'Aumentamos la barra de progreso
                ProgressBar1.Value = ProgressBar1.Value + (Len(vtData) * 2)
               
                If Len(vtData) = 0 Then
                    bDone = True
                End If
            Loop
  
        Close #1
       
        MsgBox "Archivo descargado correctamente", vbInformation
        ProgressBar1.Value = 0
    End Select
  
Exit Sub
  
Err_Sub:
    MsgBox Err.Description, vbCritical
    On Error Resume Next
    Inet1.Cancel
    ProgressBar1.Value = 0
End Sub