怎么关闭不了进度条窗口~~~急

[ljlove99]

因软件要读大量数据，所以做了个进度条窗口，但是在数据读完后用me.close()和
Exit Sub怎么也关闭不了进度条窗口，我一直到找不到是那里错了，我的代码如下：

1.主窗口：
Private Sub men_read_Click(ByVal sender As system.Object,ByVal e As System.EventArgs)Handles men_import_course.Click
Dim formreadwait As New form_read_wait()
With OpenFileDialog
.Filter = "Excel Files(*.xls)1*.xls"
.Title = "打开文件"
End With
OpenFileDialog.ShowDialog()
If OpenFileDialog.FileName <> "" then
formreadwait.ShowDialog()
End If
End Sub

2.进度条窗口:
Private Sub form_read_wait_Actived(ByVal sender As Object,ByVal e As System.EventArgs)Handles MyBase.Actived
'读取数据
.
.
.
'成功后
Messagebox.Show("数据读入成功！","提示")
me.Close() '关闭窗口
Exit Sub
End Sub

不知道错在那里，如果不是这样一来编写，还有其他方法吗？

[ljlove99]

难道都不知道吗？

进度条窗口该怎么做啊？

[cnhgj]

不要用showdialog,用show就好

[ljlove99]

用show就能解决吗？
但是我又想这个进度条窗口在显示进度时能在最前面，还有其他解决方案没有啊

[Brunhild]

1. 如上，用show
2. 建议你使用多线程或用timer来读取数据。

[cnhgj]

如果要在最上面那么
progressform.topmost = true

[ljlove99]

用show也出现了问题：
如果在进度条前进中时，也就是在读数据时，你点击了其他窗口或者程序后再来点击进度条窗口，进度又会重新开始读取进度，我在VB6中就没遇到过这样的问题，说说该怎么解决啊，
最好有代码，谢谢！！

[ljlove99]

如果说用多线程或是timer该怎么做，能说清楚一些吗，最好有代码解释！！

[ljlove99]

放到别的窗口怎么解决啊？？

要用代码控制进度条控件的值啊，这个进度条窗口又要显示出来！！怎么做，我没想通！！

能再解释一下吗！！！最好贴几段段代码（通过运行的）！！

望回复!1

[cnhgj]

把你控制进度条的代码写在别的窗口，不在写在progress窗口,在别的窗口控制它