Данная функция API только для Windows 98  и  Windows 2000.
 
	Function boolean AnimateWindow( &
	   long lhWnd, long lTm, long lFlags ) library 'user32'
	
	Первый параметр handle вашего окна.
	Второй время анимации.
	Следующий параметр это тип анимации. 
	
	// Анимация окна слева направо
	Constant Long AW_HOR_POSITIVE = 1
	
	// Анимация окна справа налево 
	Constant Long AW_HOR_NEGATIVE = 2 
	
	// Анимация сверху вниз
	Constant Long AW_VER_POSITIVE = 4 
	
	// Анимация снизу вверх
	Constant Long AW_VER_NEGATIVE = 8
	
	// Makes the window appear to collapse inward
	Constant Long AW_CENTER = 16
	
	// Скрытие окна
	Constant Long AW_HIDE = 65536
	
	// Активизация окна
	Constant Long AW_ACTIVATE = 131072
	
	// Использование slide-animation
	Constant Long AW_SLIDE = 262144
	
	// Использование fade-effect
	Constant Long AW_BLEND = 524288
	
	AnimateWindow( Handle( this ), 500, AW_VER_NEGATIVE )