Option Explicit

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

Public Const AW_SLIDE = &H40000
Public Const AW_ACTIVATE = &H20000
Public Const AW_BLEND = &H80000
Public Const AW_HIDE = &H10000
Public Const AW_CENTER = &H10
Public Const AW_HOR_POSITIVE = &H1
Public Const AW_HOR_NEGATIVE = &H2
Public Const AW_VER_POSITIVE = &H4
Public Const AW_VER_NEGATIVE = &H8

Public AnimTyp As Long

Option Explicit

Private Sub Form_Load()
  With cmbAnimTyp
    .Clear

    .AddItem "Blend"
    .ItemData(.NewIndex) = AW_BLEND

    .AddItem "Links -> Rechts"
    .ItemData(.NewIndex) = AW_SLIDE Or AW_HOR_POSITIVE

    .AddItem "Links oben -> rechts unten"
    .ItemData(.NewIndex) = AW_VER_POSITIVE Or AW_HOR_POSITIVE

    .AddItem "Rechts -> Links"
    .ItemData(.NewIndex) = AW_SLIDE Or AW_HOR_NEGATIVE

    .AddItem "Rechts oben -> links unten"
    .ItemData(.NewIndex) = AW_HOR_NEGATIVE Or AW_VER_POSITIVE

    .AddItem "Oben -> Unten"
    .ItemData(.NewIndex) = AW_SLIDE Or AW_VER_POSITIVE

    .AddItem "Unten -> Oben"
    .ItemData(.NewIndex) = AW_SLIDE Or AW_VER_NEGATIVE

    .AddItem "Mitte"
    .ItemData(.NewIndex) = AW_CENTER

    .ListIndex = 2
  End With
End Sub

Private Sub cmbAnimTyp_Click()
  AnimTyp = cmbAnimTyp.ItemData(cmbAnimTyp.ListIndex)
End Sub

Private Sub cmdShowForm_Click()
  frmEffekt.Show
End Sub

Option Explicit

Private Sub Form_Load()
  AnimateWindow Me.hwnd, 500, AnimTyp
  Me.Refresh
End Sub

Private Sub cmdSchliessen_Click()
  Unload Me
End Sub

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