resolved. fixed code..

pbUpload.Visible = True
Dim intFbytes As Integer
Dim intOffset As Integer
Dim clsStream As System.IO.Stream = clsRequest.GetRequestStream()
intFbytes = bFile.Length / 100
intFbytes = intFbytes + 1
pbUpload.Maximum = 100
For I As Integer = 0 To 100
If intOffset + intFbytes > bFile.Length Then intFbytes = bFile.Length - intOffset
clsStream.Write(bFile, intOffset, intFbytes)
intOffset += intFbytes
pbUpload.Value = I
Next
clsStream.Close()
clsStream.Dispose()
pbUpload.Visible = False