Эффекты

Здрасте. Вот вопрос, как реализовать эфект исчезания контрола ну т.е. красивого сворачивания\сплющевания\улетания и т.п. укажите куда копать, желательно на чистом WINAPI. Заранее благодарю...

 

вот как я писал такое на делфи:

Код (Text):

1. var R,I:Integer;
2. begin
3.    I:=0;
4.    repeat
5.       begin
6.       Inc(I);
7.       R:=CreateRectRgn(0,I,Width,Height-I);
8.       SetWindowRgn(Handle,R,True);
9.       sleep(2);
10.       end;
11.    until I=(Height div 2);
12.    I:=0;
13.    repeat
14.       begin
15.       Inc(I);
16.       R:=CreateRectRgn(I,(Height div 2),Width-I,(Height div 2)+1);
17.       SetWindowRgn(Handle,R,True);
18.       sleep(1);
19.       end;
20.    until I=(Width div 2);
21. sleep(400);
22. end;

 

Я бы в принципе и на AnimateWindow остановился, но когда контрол пред смертно сворачивается, почему то прекращается собственная зарисовка фона, по событию WM_PAINT...