LRESULT CALLBACK WinProc(HWND hwnd, UINT msg, WPARAM wParam, LPARAM lParam)
{
      PAINTSTRUCT ps;
      RECT rect;

      static int x=0, y=0;

      switch (msg)
      {
          case WM_CREATE:
              SetTimer(hwnd, TIMER_VK, 100,0);
          break;
          case WM_KEYDOWN:
              if(wParam==VK_DOWN)y=y+5;
              if(wParam==VK_UP)y=y-5;
              if(wParam==VK_LEFT)x=x-5;
              if(wParam==VK_RIGHT)x=x+5;
          break;
          case WM_TIMER:
          switch (wParam)
          {
          case TIMER_VK:
              GetClientRect(hwnd,&rect);
              InvalidateRect(hwnd, &rect, TRUE);
          break;
          }
          break;
          case WM_PAINT:
              hdc=BeginPaint(hwnd, &ps);
              Ellipse(hdc, x+20,y+20,x+10,y+10);
              Ellipse(hdc, 250,250,230,230);
              EndPaint(hwnd, &ps);
          break;
          case WM_DESTROY:
              PostQuitMessage(0);
              KillTimer(hwnd,TIMER_VK);
      }
      return DefWindowProc(hwnd,msg,wParam,lParam);
}