Problème de programmation avec l' API (AnimateWindow)

[imej-clavier]

Bonjour,
Quelqu'un peut-il comprendre ce qui ne va pas dans mon code ?
J'ai essayé de me servir d'une fonction API (AnimateWindow), mais cela ne
marche pas .
J'ai créé un module dans lequel j'ai mis :
Option Explicit
Private Declare Function AnimateWindow Lib « user32 » ( _
ByVal hwnd As Long, _
ByVal dwTime As Long, _
ByVal dwFlags As Long) As Long

J'ai créé également un UserForm dans lequel j'ai mis
Private Sub UserForm_Activate()
Debug.Print AnimateWindow(Me.hwnd, 10000, &H10 Or &H20000)
End Sub
J'ai essayé de remplacer le Me par UserForm, mais cela ne change rien.
J'ai démarré le programme à partir du UserForm. Le UserForm s'affiche, mais
sa taille n'est pas
Modifiée, alors qu'elle serait censée l'être avec le code de l'API.
D'avance merci,
Jean-michel

 

[AlfD]

Bon soir!

Vous avez besoin d'un NG francais.
Mais vous pouvez peutetre trouver de l'assistance ici:

http://www.mvps.org/emorcillo/vb6/grl/animatewindow.shtml

Al