Form FadeOut

Hej eksperter!
Jeg har dette script som gør at min form fader ud:
Const AW_HIDE = &H10000 'Hides the window. By default, the window is shown.
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

og

Private Sub Form_Unload(Cancel As Integer)
    AnimateWindow Me.hwnd, 100, AW_HIDE Or AW_BLEND
    Unload Me
End Sub

Hvordan vender jeg det om? Så det osse kan fade in?