主题：请教,怎样设计一个动态提示框!

  例如,在复制数据的时候,出现一个提示框“正在复制……”，告诉用户正在复制数据，等复制完成后，自动关闭这个提示框！
  好像messagebox没有这样的功能，不知怎样实现？

自己做一个独立窗口，开始的时候显示，结束的时候关闭。

能不能写一个例子

呵呵，其实很简单啊：

Forms("窗口").Open()
原来的代码
Forms("窗口").Close()

贺老师，有问题啊。我按你的方法，发现新打开窗口的标签不显示任何内容，不知是哪儿的问题。
如我做的例子，在窗口1中点按钮，自动打开窗口2，这时候窗口2的标签不显示任何内容！

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目5.table

呵呵，应该这样：

forms("窗口1").close
forms("窗口2").open
Application.Doevents
dim j as double
for i as double =1 to 1000000000
   j=j+i
next
forms("窗口2").close