窗口打开过程的动态效果如何实现？

打开窗口可以用这个代码：

Forms("窗口名").Open()

设计一个按钮，通过按钮的CLICK事件设置代码，通过点击所设计的按钮可以打开“窗口”。

请问：如果打开的窗口，希望他在过程中有效果，不是在你指定的位置一下出现的那种。比如：我们的QQ消息提示框，一般都是从右下角慢慢的升上来后停住，最后完全显示。请问这种效果FOXtable如何实现, 是否可以通过编程实现？ 

狐爸，我想知道窗口位置、控件位置的设定函数，和位置值的返回函数是多少？

（通过代码控制窗口的显示位置，通过关闭，显示及计时器的配合是否可以实现窗口的动态移动）

设置位置和大小：
 
http://www.foxtable.com/help/topics/2312.htm

form有个baseForm属性，返回底层的窗口，baseform有left\\top\\width\\height属性。

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

窗口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

程老师：您实在是太厉害了。threading.thread.sleep(50)这个也用上了，狐表里没有介绍，不知道什么用？

application.Doevents() 这个代码对我帮助很大。

我学习化学的，接触编程是通过FOXTABLE的，通过写这个学习到很多！我使用定时器和SetBounds(x, y, Width, Height)

写的，代码写的比较烦，老师帮我看下，是否可以简化。

（狐爸，这个效果实现了哦，吃奶的力都用上了）

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

点击浏览该文件:窗口动态移动实例.zip

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

点击浏览该文件:窗口动态移动实例.table

呵呵，奖励你一朵小红花。