请高手指点下HttpWebRequest类断点续传的代码，设置了AddRange()值后不起作用

以下代码在前一次下载的文件基础上又下载了整个大小的源文件，请高手指点下，谢谢！

        Dim address As String = "http://www.wowui.cn/down/wowui.rar"
        Dim downfile As String = "C:\wowui.rar"
        'HTTP断点下载
        Dim httpreq As HttpWebRequest = CType(WebRequest.Create(address), HttpWebRequest)
        Dim httpres As HttpWebResponse = CType(httpreq.GetResponse(), HttpWebResponse)
        Dim fs As FileStream
        If File.Exists(downfile) Then
            '断点下载
            httpreq.AddRange(New FileInfo(downfile).Length)
            fs = New FileStream(downfile, FileMode.Append, FileAccess.Write)
        Else
            '正常下载
            fs = New FileStream(downfile, FileMode.Create, FileAccess.Write)
        End If
        Dim resStrm As Stream = httpres.GetResponseStream()
        Dim buffer(4096) As Byte
        While True
            Dim readSize As Integer = resStrm.Read(buffer, 0, buffer.Length)
            If readSize = 0 Then
                Exit While
            End If
            fs.Write(buffer, 0, readSize)
        End While
        resStrm.Close()
        httpres.Close() --------------------编程问答-------------------- 请你先教我如何实现下载进度条吧！ --------------------编程问答-------------------- 只要把创建httpres放在修改之后就ok

补充：.NET技术 ,  VB.NET