Option Explicit
 Public Event Progress(DownLoadedBytes As Long, TotalBytes As Long, sID As String)
 Public Event Completed(Bytes As Long, sID As String)
 Private colDest As New Collection

Public Sub Download(sWWWFile As String, sDestination As String, Optional sID As String = "Id")
On Error Resume Next
    If sDestination <> "" Then colDest.Add sDestination, sID
    UserControl.AsyncRead sWWWFile, vbAsyncTypeFile, sID, vbAsyncReadForceUpdate
End Sub

Private Sub UserControl_AsyncReadComplete(AsyncProp As AsyncProperty)
On Error Resume Next
   Name AsyncProp.value As colDest.Item(AsyncProp.PropertyName)
   colDest.Remove AsyncProp.PropertyName
   RaiseEvent Completed(AsyncProp.BytesRead, AsyncProp.PropertyName)
End Sub

Private Sub UserControl_AsyncReadProgress(AsyncProp As AsyncProperty)
    RaiseEvent Progress(AsyncProp.BytesRead, AsyncProp.BytesMax, AsyncProp.PropertyName)
End Sub

Public Sub CancelDownload(Optional sID As String = "Id")
    UserControl.CancelAsyncRead sID
End Sub

Private Sub UserControl_Resize()
 UserControl.Height = "495"
 UserControl.Width = "495"
End Sub

Private Sub Command1_Click()
 Caption = ""
 DL1.Download "http://cs4618.vkontakte.ru/u29428658/audio/ddf4446c1e4e.mp3", "C:\tmp.mp3"
End Sub

Private Sub DL1_Progress(DownLoadedBytes As Long, TotalBytes As Long, sID As String)
On Error Resume Next
Caption = Str(TotalBytes) + " - " + Str(DownLoadedBytes / TotalBytes *  100 )
'If TotalBytes <> 0 Then DL1.CancelDownload
End Sub