在VB编程中应用窗体出现和关闭般都是静态不过我们利用下面个APIAnimateWindow就可以轻松实现窗体动态效果

　　APIAnimateWindow声明如下:

　　Private Declare Function AnimateWindow Lib "user32" (ByVal hwnd As Long, ByVal dwTime As Long, ByVal dwFlags As Long) As Long

　　其中:hwnd只对form有效；dwtime是动画持续时间默认值为200；dwflags是动画方式可以取&&H1、&&H2、&&H4、&&H5、&&H6、&&H8、&&H9和&&H10共8 个值分别代表左右、右左、上下、左上到右下、右上到左下、下上、左下到右上以及中间到 4周等

　　AW_HIDE = &&H10000 在窗体卸载时若想使用本就得加上此常量

　　AW_ACTIVATE = &&H20000 在窗体通过本打开后默认情况下会失去焦点除非加上本常量

　　AW_SLIDE = &&H40000

　　AW_BLEND = &&H80000 淡入淡出效果(适用于WIN2000)

　　下面我们举个例子让朋友们熟习AnimateWindow使用

　　例:从左上角到右下角逐渐显示窗体

　　Private Sub Form_Load

　　AnimateWindow hwnd, 3000, &&H5

　　Form1.Refresh

　　End Sub

　　以上在PWIN98VB6.0中文企业版中运行通过