@İlkerxx

ya abi bak burdaki kodlar benim projedekiler...

usercontrol ekledim downloader yaptım projeme ekledım fakat bana hata verdigi yer şurası...

Private Sub Command1_Click()
Downloader1.BeginDownload "http://www.xeon.gen.tr/xeon.exe“, “C:\xeon.exe"
End Sub

"BeginDownload" bu kısım hata verıyor ???

Private Sub Downloader1_DownloadComplete(MaxBytes As Long, SaveFile As String)
ProgressBar1.Value = 0
Label1.Caption = "Yükleme Tamamlandı"
End Sub

Private Sub Downloader1_DownloadProgress(CurBytes As Long, MaxBytes As Long, SaveFile As String)
ProgressBar1.Max = MaxBytes
ProgressBar1.Value = CurBytes
Label1.Caption = "Yükleme : ” & CurBytes & ” / ” & MaxBytes & ” ” & Format((ProgressBar1.Value / ProgressBar1.Max * 100), “0¨) & “% tamamlandı.”"
End Sub

Private Sub Command1_Click()
Downloader1.BeginDownload "http://www.xeon.gen.tr/xeon.exe“, “C:\xeon.exe"
End Sub

Tam Kodlari...??

+ Sen r10ilkerxx.ocx dosyasi yapmışsın activex control bunu nasıl yaptın ben usercontrol yapıyorum ?