老师我想在我程序执行的时出现一个提示框，执行完自动消失 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

For Each dt As DataTable In DataTables

dt.Load()

'Dim dr3 As DataTables("库存明细").Select("VT_Spessore > 0").Count

If DataTables("库存明细").Select("VT_Spessore > 0").Count>10 Then

DataTables("原片仓库").DeleteFor("[读取时间] = #" & Date.Today & "#")

For Each dr1 As DataRow In DataTables("库存明细").Select("VT_Spessore > 0")

Dim dr2 As DataRow = DataTables("原片仓库").AddNew()

For Each dc As DataCol In DataTables("库存明细").DataCols

dr2(dc.Name) = dr1(dc.name)

DataTables("原片仓库").Save()

Else

MessageBox.Show("没有读取数据!")

End If

DataTables("原片内库存总计").Load()

老师我执行的就是这段程序，请问老师我怎么在代码中加入一个提示，比如说正在执行，请等待，否则可以用户以为程序死掉了。

主题：老师我想在我程序执行的时出现一个提示框，执行完自动消失