AnimateWindowAPI

函数动画窗口。
虽然MSDN页面上说该功能是Win2000的最新功能，但经网友证实，该功能在Win98中已经存在:

私有声明函数animate window Lib“user 32”(ByVal hwnd为Long，ByVal dwTime为Long，ByVal dwFlags为Long)为Long

其中:
hwnd只对Form有效，其他像Picture1都不能产生效果。
dwTime是动画的持续时间，默认为200。
dwFlags可以采用以下值:
aw _ hor _ positive(& h1)& acute；从左向右打开窗口
aw _ hor _ negative(& H2)& acute；从右向左打开窗口
aw _ ver _ positive(& H4)& acute；从上到下打开窗口
aw _ ver _ negative(& H8)& acute；自下而上打开窗口
AW _ CENTER(& H10)& acute；我看不出有什么效果
AW _ HIDE(& h 10000)& acute；你得加上这个常数
aw _ activate(& h 20000)& acute；如果要在卸载表单时使用此功能。该函数打开表单后，默认会失去焦点，除非这个常量
AW _ SLIDE(& h 40000)& acute；已添加。我看不出有什么效果
AW _ BLEND(& h 80000)& acute；褪色效应

最后一个就是我要找的。不幸的是，它只适用于Win2000。下面是窗体淡入的效果，没有Win2000是看不到的:

1.边框样式= 1
Form1。caption = ""
form1。控件框= ""
并在form1上附加一个大小合适的背景图像。

Private Sub Form _ Click()
Unload Me
End Sub
Private Sub Form _ Unload(Cancel As Integer)
animate window hwnd，1000，& h 80000+& h 10000
set Form 1 = nothing
End Sub
animate window函数可以为程序增色，尤其适用于Win2000。