[Resolvido]Modulo de Efeito de Transicao de Formulario

Achei o Modelo http://maximoaccess.forumeiros.com/t1436-efeito-especial-ao-fechar-formulario no repositorio do Forum.

Gostaria de saber como fazer isto usando um modulo, assim nao precisando colocar o codigo inteiro em todos os forms.

Grato

Transforme o código em PUBLIC, cole num modulo e salve;


Public Const AW_HOR_POSITIVE = &H1 'Anima a janela da esquerda para a direita
Public Const AW_HOR_NEGATIVE = &H2 'Anima a janela da direita para a esquerda
Public Const AW_VER_POSITIVE = &H4 'Anima a janela de cima para baixo.
Public Const AW_VER_NEGATIVE = &H8 'Anima a janela de baixo para cima.
Public Const AW_CENTER = &H10 'Faz a janela aparecer em colapso dentro do AW_HIDE.
Public Const AW_HIDE = &H10000 'Oculta a janela. Por padrão, a janela é mostrada.
Public Const AW_ACTIVATE = &H20000 'Activa a janela.
Public Const AW_SLIDE = &H40000 'Usa animação de slide. Por padrão, é usada a animação rolo.
Public Const AW_BLEND = &H80000 'Usa um efeito de fade. Esta flag pode ser usada somente se hwnd é uma janela de nível superior.


Public Declare Function AnimateWindow Lib "user32" _
(ByVal hwnd As Long, ByVal dwTime As Long, ByVal dwFlags As Long) _
As Boolean


Nos seus formularios, tem sempre de chamar a função, assim;

Private Sub Form_Load()
AnimateWindow Me.hwnd, 1000, AW_CENTER Or AW_SLIDE
End Sub


Private Sub Form_Unload(Cancel As Integer)
AnimateWindow Me.hwnd, 1000, AW_VER_NEGATIVE Or AW_HOR_NEGATIVE Or AW_HIDE
End Sub

Obs:
Código do exemplo alterado.

Obrigado pela Ajuda.

Estou mudando o topico como resolvido.

Valew.

Pessoal,
tentei utilizar o código acima, ele executa a animação mas o form fica com a tela toda preta oq devo fazer?

Boa noite Mestre, a animação executa ,mas a tela fica preta.