progress bar - what am I missing?

[scorpion53061]

this code came from cor and I think Armin authored it.

I am trying to download an access database and track its progress.

It is reading the size fo the file but I am unsure of how to get the data
there. It is not actually writing anything.

Any ideas anyone?

Private Sub Button1_Click(B yVal sender As System.Object, ByVal e As
System.EventArg s) Handles Button1.Click
ipserver = "xx.xx.xx.x x"

m_Thread = New MyThread
AddHandler m_Thread.Progre ss, AddressOf OnProgress
AddHandler m_Thread.Done, AddressOf OnDone
m_Thread.Start( )

End Sub

Public Delegate Sub ProgressDelegat e(ByVal Progress As Integer)

Private Sub OnProgress(ByVa l Progress As Integer)
If Me.InvokeRequir ed Then
Me.Invoke(New ProgressDelegat e( _
AddressOf OnProgress _
), New Object() {Progress})
Else
Me.Button1.Text = Progress.ToStri ng
ProgressBar1.In crement(1)
End If
End Sub

Private Sub OnDone()
m_Thread = Nothing
End Sub
Class MyThread
Public Event Progress(ByVal Progress As Integer)
Public Event Done()

Private m_Thread As Thread

Public Sub Start()
m_Thread = New Thread(AddressO f ThreadStart)
m_Thread.Start( )
End Sub

Private Sub ThreadStart()
Dim i As Integer

With keywordwebreque st.GetRequestSt ream
For i = 1 To keywordresponse size / 50000
'(keywordwebreq uest.GetRequest Stream.Write
Thread.Sleep(10 0)
RaiseEvent Progress(i)
Next

End With
RaiseEvent Done()
End Sub

End Class

[scorpion53061]

solved it myself thanks anyway.......