#define IDANI_OPEN 1 #define IDANI_CLOSE 2 #define IDANI_CAPTION 3 *!* Private Type RECT *!* Left As Long *!* Top As Long *!* Right As Long *!* Bottom As Long *!* End Type DECLARE LONG FindWindowA IN WIN32API STRING class, STRING title DECLARE INTEGER SetRect IN WIN32API; STRING @lpRect,; INTEGER X1,; INTEGER Y1,; INTEGER X2,; INTEGER Y2 DECLARE INTEGER DrawAnimatedRects IN WIN32API; INTEGER hWnd,; INTEGER idAni,; STRING lprcFrom,; STRING lprcTo STORE SPACE(16) TO rSource, rDest STORE 0 TO ScreenWidth, ScreenHeight ** Get _Screen hWnd lhWnd = FindWindowA(0, _Screen.Caption) ScreenWidth = _Screen.Width ScreenHeight = _Screen.Height SetRect(@rSource, ScreenWidth, ScreenHeight, ScreenWidth, ScreenHeight) SetRect(@rDest, 0, 0, 200, 200) DrawAnimatedRects(lhWnd, BITOR(IDANI_CLOSE,IDANI_CAPTION), rSource, rDest)