Selam arkadaşlar Visual Basic'ten fazla anlamıyorum ama işime yarayacak bir kod buldum http den dosya download ediyor ve progressbar ile ne kadar kaldığını gosteriyor. Bazen calışıyor ama coğu zaman hic calışmıyor. Hatanın neden kaynaklandığını gormek icin On Error Resume Next i kaldırdığımda If Len(Inet1.GetHeader("Content-Length")) > 0 Then satırında hata olduğunu gosteriyor ve şoyle bir mesaj cıkıyor Unable to complete request

Kod:
Option Explicit Private Sub Form_Load() 'initialize and stage controls ScaleMode = vbPixels Text1.Move 5, 115, 300, 20 Text2.Move 5, 135, 300, 20 ProgressBar1.Move 5, 155, 300, 20 Command1.Move 4, 175, 83, 23 Label1.Move 100, 180, 200, 20 'Text1.Locked = True 'Text2.Locked = True Text1.Text = " 50 mesajım olmadığı icin link gonderemiyorum" Text2.Text = "C:\logo.gif" ProgressBar1.Max = 100 Command1.Caption = "Download" Label1.Caption = "