#include <windows.h>
        
LRESULT CALLBACK WndProc           (HWND, UINT, WPARAM, LPARAM) ;
        
LRESULT CALLBACK ScrollProc(HWND, UINT, WPARAM, LPARAM) ;
        

int     idFocus ;
        
//WNDPROC OldScroll[3] ;
WNDPROC OldScroll;
        

int WINAPI WinMain (HINSTANCE hInstance, HINSTANCE hPrevInstance,
        
                                                         PSTR szCmdLine, int iCmdShow)
        
{
        
           static TCHAR szAppName[] = TEXT ("Colors1") ;
        
           HWND                                 hwnd ;
        
           MSG                                  msg ;
        
           WNDCLASS                      wndclass ;
        
   
        
          wndclass.style                               = CS_HREDRAW | CS_VREDRAW ;
        
           wndclass.lpfnWndProc                         = WndProc ;
        
           wndclass.cbClsExtra                          = 0 ;
        
           wndclass.cbWndExtra                          = 0 ;
        
           wndclass.hInstance                           = hInstance ;
        
           wndclass.hIcon                               = LoadIcon (NULL, IDI_APPLICATION) ;
        
           wndclass.hCursor                             = LoadCursor (NULL, IDC_ARROW) ;
        
           wndclass.hbrBackground               = CreateSolidBrush (0) ;
        
          wndclass.lpszMenuName                = NULL ;
        
           wndclass.lpszClassName               = szAppName ;
        
   
        
           if (!RegisterClass (&wndclass))
        
           {
        
                  MessageBox (  NULL, TEXT ("This program requires Windows NT!"),
        
                                                                        szAppName, MB_ICONERROR) ;
        
                  return 0 ;
        
           }
        
    hwnd = CreateWindow (szAppName, TEXT ("Color Scroll"),
        
                      WS_OVERLAPPEDWINDOW,
        
                      CW_USEDEFAULT, CW_USEDEFAULT,
        
                      CW_USEDEFAULT, CW_USEDEFAULT,
        
                     NULL, NULL, hInstance, NULL) ;
        
   
        
           ShowWindow (hwnd, iCmdShow) ;
        
           UpdateWindow (hwnd) ;
        
   
        
           while (GetMessage (&msg, NULL, 0, 0))
        
           {
        
                  TranslateMessage (&msg) ;
        
                  DispatchMessage  (&msg) ;
        
           }
        
          return msg.wParam ;
        
}