Imports System.ComponentModel
'*******************************************************************
'Различные эффекты появления формы
'http://vbnet.su - Visual Basic .NET. Статьи. Примеры. Форум.
'*******************************************************************
 
Public Class WindowAnimator
 Private Declare Function AnimateWindow Lib "user32" (ByVal hwnd As IntPtr, ByVal time As Integer, ByVal flags As Integer) As Boolean
 
 Public Enum AnimateStyles
 Slide = 262144
 Activate = 131072
 Blend = 524288
 Hide = 65536
 Center = 16
 End Enum
 
 Public Enum AnimateDirection
 Horizontal_Positive = 1
 Horizontal_Negative = 2
 Vertical_Positive = 4
 Vertical_Negative = 8
 End Enum
 
 Private AniTime As Integer = 100
 Private WinHandle As IntPtr
 Private AniStyle As AnimateStyles = AnimateStyles.Blend
 Private AniDirection As AnimateDirection = AnimateDirection.Horizontal_Negative
 
 <Category("Window Animator")> _
 <Description("Gets/Sets the animation time in milliseconds.")> _
 Public Property AnimationTime() As Integer
 Get
 AnimationTime = AniTime
 End Get
 Set(ByVal Value As Integer)
 AniTime = Value
 End Set
 End Property
 
 <Category("Window Animator")> _
 <Description("Gets/Sets the handle to the window to animate.")> _
 Public Property WindowHandle() As IntPtr
 Get
 WindowHandle = WinHandle
 End Get
 Set(ByVal Value As IntPtr)
 WinHandle = Value
 End Set
 End Property
 
 <Category("Window Animator")> _
 <Description("Gets/Sets the animation style.")> _
 Public Property AnimationStyle() As AnimateStyles
 Get
 AnimationStyle = AniStyle
 End Get
 Set(ByVal Value As AnimateStyles)
 AniStyle = Value
 End Set
 End Property
 
 <Category("Window Animator")> _
 <Description("Gets/Sets the animation direction.")> _
 Public Property AnimationDirection() As AnimateDirection
 Get
 AnimationDirection = AniDirection
 End Get
 Set(ByVal Value As AnimateDirection)
 AniDirection = Value
 End Set
 End Property
 
 Public Function AnimateWindow()
 AnimateWindow(WindowHandle, AniTime, AniDirection Or AniStyle)
 Return 0
 End Function
 
End Class