This API function is for Windows 98 and Windows 2000 only.
 
	Function boolean AnimateWindow (&
	long lhWnd, long lTm, long lFlags) library 'user32'

	The first parameter is handle of your window.
	Second animation time.
	The next parameter is the type of animation.

	// Animate the window from left to right
	Constant Long AW_HOR_POSITIVE = 1

	// Animate the window from right to left
	Constant Long AW_HOR_NEGATIVE = 2

	// Animate from top to bottom
	Constant Long AW_VER_POSITIVE = 4

	// Animate from bottom to top
	Constant Long AW_VER_NEGATIVE = 8

	// Makes the window appear to collapse inward
	Constant Long AW_CENTER = 16

	// Hide the window
	Constant Long AW_HIDE = 65536

	// Activate the window
	Constant Long AW_ACTIVATE = 131072

	// Using slide-animation
	Constant Long AW_SLIDE = 262144

	// Using fade-effect
	Constant Long AW_BLEND = 524288

	AnimateWindow (Handle (this), 500, AW_VER_NEGATIVE)