新建一个工程，添加一个模块，模块内代码如下，实例化一个窗口，通过ainmatewindow方法显示该窗口，但是VB下的背景为什么是黑的？
Const AW_HOR_POSITIVE = &H1 'Animates the window from left to right. This flag can be used with roll or slide animation.
Const AW_HOR_NEGATIVE = &H2 'Animates the window from right to left. This flag can be used with roll or slide animation.
Const AW_VER_POSITIVE = &H4 'Animates the window from top to bottom. This flag can be used with roll or slide animation.
Const AW_VER_NEGATIVE = &H8 'Animates the window from bottom to top. This flag can be used with roll or slide animation.
Const AW_CENTER = &H10 'Makes the window appear to collapse inward if AW_HIDE is used or expand outward if the AW_HIDE is not used.
Const AW_HIDE = &H10000 'Hides the window. By default, the window is shown.
Const AW_ACTIVATE = &H20000 'Activates the window.
Const AW_SLIDE = &H40000 'Uses slide animation. By default, roll animation is used.
Const AW_BLEND = &H80000 'Uses a fade effect. This flag can be used only if hwnd is a top-level window.
Private Declare Function AnimateWindow Lib "user32" (ByVal hwnd As Long, ByVal dwTime As Long, ByVal dwFlags As Long) As Boolean
Dim i As Form
Public Sub Main()
Set i = New Form1
i.Caption = "NEW"
AnimateWindow i.hwnd, 1000, &H80000
i.Refresh
End Sub

[ 本帖最后由 我是菜鸟哦 于 2010-8-15 19:19 编辑 ]

不行哦

什么意思，有什么方法可以解决，貌似就在VB上有这个问题

嘛意思