Public Sub DownloadStart(ByVal URL As String, _
   Optional ByVal Mode As AsyncReadConstants =  vbAsyncReadResynchronize)

   If Len(URL) Then
      ' Already downloading something, need to cancel!
      If m_Key Then Me.DownloadCancel
      
      ' Use current time as PropertyName.
      m_Key = GetTickCount()
      Debug.Print CStr(m_Key); " - "; URL
      
      ' Request user-specified file from web.
      On Error Resume Next
      
         UserControl.AsyncRead URL, vbAsyncTypeByteArray, _
            CStr(m_Key), Mode
      
      If Err.Number Then
         Debug.Print "AsyncRead Error"; Err.Number, _
            Err.Description
      End If
   End If
End Sub
Private Sub Command1_Click()
          DownloadStart("http://imeStranice/host.com/uploads/1/2/3/0/12302969/data.zip", _
    vbAsyncReadResynchronize) OVDJE MI DAJE ZNAK =(jednako) I NEZNAM STA TREBA TU STAVITI
End Sub