怎样做一个打开文件的进度条？？？

请问：各位专家，我想做vb对CAD进行二次开发，在打开cad文件时，我想做一个打开cad文件的进度条？？
  各位怎么做啊？？ --------------------编程问答-------------------- 按读取文件的字节数设进度条？？ --------------------编程问答-------------------- 等待牛人来答. --------------------编程问答-------------------- 是的，按读取的字节数设置进度条 --------------------编程问答-------------------- 具体怎么做呀，大虾们有具体代码不 --------------------编程问答-------------------- Dim dr As New StreamReader("文件名")
        Dim l As Long = dr.BaseStream.Length
        ProgressBar1.Maximum = l
        Dim i As Integer
        Dim c(l) As Char
        For i = 0 To l
            Application.DoEvents()
            ProgressBar1.Value = i
            dr.Read(c, i, 1)
        Next
        TextBox1.Text = CStr(c)

当然这不是最好的读取文件的方法，具体读取文件方法根据你自己的程序去写吧 

补充：VB ,  控件