Движение объектов

#include <windows.h>
#define BALL                            102
int x,y,dx,dy; // Координаты и скорости объекта
const int R=20; // радиус объекта
int WINAPI fn(HWND hwnd,int cmd,WPARAM wp,LPARAM lp)
{
    switch(cmd)
    {
 
    case WM_INITDIALOG:
        x=0;y=0; // задание начальных координат
        dx=2;dy=-2; // задание начальных координат
        SetTimer(hwnd,1,25,NULL); // запуск таймера каждые 25 миллисекунд
        return 1;
    case WM_TIMER: // появилось ссобщение от таймера
        {
            x+=dx;y+=dy; // пересчет координат
            RECT rc;GetClientRect(hwnd,&rc); // узнать размеры окна
            // проверка столкновения с границей
            if(x>rc.right-R)dx=-abs(dx);
            if(x<R)dx=abs(dx);
            if(y>rc.bottom-R)dy=-abs(dy);
            if(y<R)dy=abs(dy);
            InvalidateRect(hwnd,NULL,TRUE); // команда на перерисовку окна
        }
        return 1;
    case WM_CLOSE:
        EndDialog(hwnd,3); // закрытие окна
        return 1;
    case WM_SIZE:
        InvalidateRect(hwnd,NULL,TRUE);// перерисовка при изменении размера окна
        return 1;
    case WM_COMMAND:
        return 0;
    case WM_PAINT:
        {
            PAINTSTRUCT ps;
            HDC hdc = BeginPaint(hwnd, &ps);
            HBRUSH b1,b0;
            b1=CreateSolidBrush(RGB(255,0,0)); // красная кисть
            b0=(HBRUSH)SelectObject(hdc,b1);
            Ellipse(hdc,x-R,y-R,x+R,y+R);  // Рисуем красный круг в точке (x,y) радиуса R 
            SelectObject(hdc,b0);
            DeleteObject(b1);
            EndPaint(hwnd, &ps);
        }
        return 1;
    }
    return 0;
}
int WINAPI WinMain(HINSTANCE hi,HINSTANCE,LPSTR,int) 
{
    return DialogBox(hi,MAKEINTRESOURCE(BALL),NULL,(DLGPROC)fn);
}

#include "windows.h"
#define BALL                            102
 
BALL DIALOGEX 0, 0, 372, 250
STYLE  WS_MINIMIZEBOX | WS_MAXIMIZEBOX | WS_POPUP | WS_CAPTION | WS_SYSMENU | WS_THICKFRAME
CAPTION "Moving"
BEGIN
END