主题：[求助]窗口打开过程的动态效果如何实现？

 自己的孩子居然都不知道啥性格，看您这个爸爸怎么当的：

窗口1按钮代码，打开窗口2并动态升起窗口：

Forms("窗口2").open(300,700)
For i As Integer = 697 To 200 Step -3
    Forms("窗口2").BaseForm.Top = i
    threading.thread.sleep(50)
    application.Doevents()
Next

这是实例文件：

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

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