如何实现无边框窗体的动态打开效果？

ngw123

如何实现无边框窗体的动态打开效果？调用api 函数AnimateWindow可以动态打开有标题栏的窗体，可是无边框的为什么就不行．．还有如何使窗体在动态打开的过程中保持原来的背景色，不是黑色？该如何设置．．．．．

API函数AnimateWindow的声明如下：

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

在窗体load事件中：

　　　Private Sub Form_Load()



　　AnimateWindow hwnd, 3000, &H80000 ''淡入淡出效果

　me.Refresh



　　End Sub

此段代码在有边框窗体中能实现，无边框不行．．．

[此贴子已经被作者于2004-8-20 13:38:06编辑过]