Declare Function AnimateWindow Lib "user32" (ByVal hwnd As Long, ByVal dwTime As Long, _ ByVal dwFlags As Long) As Boolean
AnimateWindow дает возможность создания особых эффектов при появлении или скрытии окна. Существует три вида анимационных эффектов: roll, slide и alpha-blended fade.
AW_SLIDE = &H40000 | Эффект слайда. Данный параметр игнорируется при использовании AW_CENTER |
AW_ACTIVATE = &H20000 | Активизирует окно. Не используйте с AW_HIDE |
AW_BLEND = &H80000 | Эффект проявления. Может использоваться, только, если окно поверх остальных |
AW_HIDE = &H10000 | Скрытие окна. По умолчанию окно видимо |
AW_CENTER = &H10 | Сжимание окна по центру |
AW_HOR_POSITIVE = &H1 | Анимация окна слева направо. Флаг игнорируется при использовании AW_CENTER или AW_BLEND |
AW_HOR_NEGATIVE = &H2 | Анимация окна справа налево. Флаг игнорируется при использовании AW_CENTER или AW_BLEND |
AW_VER_POSITIVE = &H4 | Анимация окна сверху вниз. Флаг игнорируется при использовании AW_CENTER или AW_BLEND |
AW_VER_NEGATIVE = &H8 | Анимация окна снизу вверх. Флаг игнорируется при использовании AW_CENTER или AW_BLEND |
' Пример сворачивания окна по центру
AnimateWindow Me.hwnd, 400, AW_CENTER Or AW_HIDE