Нужен пример написания DLL

#include <windows.h>
HBRUSH blackbrush,whitebrush;   
HPEN blackpen,whitepen;
 
//Создание окна
extern "C" __declspec (dllexport) LRESULT __cdecl OnCreate(HWND hwnd, UINT msg, WPARAM wParam, LPARAM lParam)
{
    blackbrush=CreateSolidBrush(RGB(128,128,128));          //Создание кистей
    whitebrush=CreateSolidBrush(RGB(255,255,255));
    blackpen=CreatePen(PS_SOLID,1,RGB(128,128,128));
    whitepen=CreatePen(PS_SOLID,1,RGB(255,255,255));
 
    return 0;
}
 
//нажатие левой кнопки мыши
extern "C" __declspec (dllexport) LRESULT __cdecl OnLButtonDown(HWND hwnd, UINT msg, WPARAM wParam, LPARAM lParam)
{
                int x = LOWORD(lParam);  // horizontal position of cursor 
            int y = HIWORD(lParam);  // vertical position of cursor
            int a=x/80;
            int b=7-y/80;
            char tmp[8];
            wsprintf(tmp,"%c%c",a+'A','1'+b);
            MessageBox(hwnd,tmp,"Поле",MB_OK);
            return 0;
}
//перерисовка окна
extern "C" __declspec (dllexport) LRESULT __cdecl OnPaint(HWND hwnd, UINT msg, WPARAM wParam, LPARAM lParam)
{
            PAINTSTRUCT ps;
            HDC hdc=BeginPaint(hwnd,&ps);       //Начало рисования
 
 
            for(int i=0;i<8;i++)            //двойной цикл
                for(int j=0;j<8;j++)        //рисования доски
                {
                    if((i+j)&1)             //Если сумма i+j нечетная
                    {
                            SelectObject(hdc,whitebrush);   //то клетка белая
                            SelectObject(hdc,whitepen);
                    }
                    else
                    {
                            SelectObject(hdc,blackbrush);   //иначе клетка черная
                            SelectObject(hdc,blackpen);
                    }
                    Rectangle(hdc,j*80,640-i*80,j*80+80,640-(i*80+80)); //нарисовать клетку соотв цветом
                }
            EndPaint(hwnd,&ps); //Завершение рисования
            return 0;
}
//уничтожение окна
extern "C" __declspec (dllexport) LRESULT __cdecl OnDestroy(HWND hwnd, UINT msg, WPARAM wParam, LPARAM lParam)
{
    DeleteObject(blackbrush);       //Удаление кистей
    DeleteObject(whitebrush);
    DeleteObject(blackpen);
    DeleteObject(whitepen);
    PostQuitMessage(0);
    return 0;
}
 
 
 
 
//Библиотека должна иметь точку входа, аналогичную WinMain
//в нашем случае это просто заготовка
BOOL APIENTRY DllMain( HMODULE hModule,
                       DWORD  ul_reason_for_call,
                       LPVOID lpReserved
                     )
{
    switch (ul_reason_for_call)
    {
    case DLL_PROCESS_ATTACH:
    case DLL_THREAD_ATTACH:
    case DLL_THREAD_DETACH:
    case DLL_PROCESS_DETACH:
        break;
    }
    return TRUE;
}

#include <windows.h>
typedef LRESULT (__cdecl *ONHANDLER)(HWND,UINT,WPARAM,LPARAM);  //объявление типа функции обработчика сообщения
//указатели на обработчики сообщений
ONHANDLER OnCreate, OnLButtonDown, OnPaint,OnDestroy;
HINSTANCE hInst;
char szMainClass[] = "MainClass";   //класс окна
char szTitle[] = "Задание 2";
//Регистрация класса окна
BOOL RegClass(WNDPROC Proc, LPCTSTR szName, UINT brBackground)
{
    WNDCLASS wc;
    wc.style =CS_HREDRAW|CS_VREDRAW ;
    wc.cbClsExtra = wc.cbWndExtra = 0;
    wc.lpfnWndProc = Proc;
    wc.hInstance = hInst;
    wc.hIcon = LoadIcon(NULL, IDI_APPLICATION);
    wc.hCursor = LoadCursor(NULL, IDC_ARROW);
    wc.hbrBackground = (HBRUSH)(brBackground + 1);
    wc.lpszMenuName = (LPCTSTR) NULL;
    wc.lpszClassName = szName;
    return (RegisterClass(&wc) != 0);
}
 
 
//Оконная процедура
LRESULT CALLBACK WndProc(HWND hwnd, UINT msg, WPARAM wParam, LPARAM lParam)
{
    switch (msg)
    {
    case WM_CREATE:     //Создание окна
        {
            return OnCreate(hwnd,msg,wParam,lParam);
        }
    case WM_LBUTTONDOWN:        //нажатие левой кнопки мыши
        {
            return OnLButtonDown(hwnd,msg,wParam,lParam);
 
        }
    case WM_PAINT:      //перерисовка окна
        {
            return OnPaint(hwnd,msg,wParam,lParam);
        }
    case WM_DESTROY:        //уничтожение окна
        {
            return OnDestroy(hwnd,msg,wParam,lParam);
 
        }
    }
    //стандартный обработчик сообщений
    return DefWindowProc(hwnd, msg, wParam, lParam);
}
 
 
// Главная функция приложения
int WINAPI WinMain(HINSTANCE hInstance, HINSTANCE hPrevInst,LPSTR IpszCmdLine, int nCmdShow)
{
    HWND hwnd;
    MSG msg;
    hInst=hInstance;
 
    HMODULE dll = LoadLibrary("dll.dll");//загружаем библиотеку
    if(dll==0)                              //Если dll не открыт
    {
        MessageBox(0,"Can't load dll.dll","Error",MB_OK);   //Выдаем сообщение об ошибке
        return 0;
    }
    //получаем адреса функций из dll
    OnCreate=(ONHANDLER)GetProcAddress(dll,"OnCreate"); //получение функции по имени
    OnLButtonDown=(ONHANDLER)GetProcAddress(dll,"OnLButtonDown");   //получение функции по имени
    OnPaint=(ONHANDLER)GetProcAddress(dll,"OnPaint");   //получение функции по имени
    OnDestroy=(ONHANDLER)GetProcAddress(dll,"OnDestroy");   //получение функции по имени
 
    //зарегистрировать класс окна
    if (!RegClass(WndProc, szMainClass, COLOR_WINDOW))
        return FALSE;
    hwnd = CreateWindow(szMainClass, szTitle,
        WS_POPUPWINDOW|WS_CAPTION,                          //стиль WS_POPUPWINDOW с заголовком
        CW_USEDEFAULT, CW_USEDEFAULT,640, 660, 0, 0, hInstance, NULL);
    if (!hwnd) return FALSE;
    //вывести окно
    ShowWindow(hwnd,SW_SHOWNORMAL);
    UpdateWindow(hwnd);
    //цикл сообщений
    while (GetMessage(&msg, 0, 0, 0))
    {
        TranslateMessage(&msg);
        DispatchMessage(&msg);
    }
    FreeLibrary(dll);                       //выгрузка библиотеки
 
    return msg.wParam;
}