ИИ который мы заслужили или Алиса в стране чудес.

#include "windows.bi"
 
' Главное окно
FUNCTION MainWindowProc(BYVAL hwnd AS HWND, BYVAL uMsg AS UINT, BYVAL wParam AS WPARAM, BYVAL lParam AS LPARAM) AS LRESULT
    SELECT CASE uMsg
        CASE WM_DESTROY
            PostQuitMessage 0
        CASE WM_COMMAND
            IF LOWORD(wParam) = 1 THEN
                MessageBox(hwnd, "Вы нажали кнопку!", "Сообщение", MB_OK)
            END IF
        CASE ELSE
            RETURN DefWindowProc(hwnd, uMsg, wParam, lParam)
    END SELECT
    RETURN 0
END FUNCTION
 
DIM hMainWnd AS HWND
DIM hButton AS HWND
 
DIM hInstance AS HINSTANCE
DIM szClassName AS STRING * 80
 
DIM wc AS WNDCLASSEX
 
' Второе окно
FUNCTION SecondWindowProc(BYVAL hwnd AS HWND, BYVAL uMsg AS UINT, BYVAL wParam AS WPARAM, BYVAL lParam AS LPARAM) AS LRESULT
    SELECT CASE uMsg
        CASE WM_DESTROY
            PostQuitMessage 0
        CASE ELSE
            RETURN DefWindowProc(hwnd, uMsg, wParam, lParam)
    END SELECT
    RETURN 0
END FUNCTION
 
DIM hSecondWnd AS HWND
 
SUB CreateMainWindow()
    wc.cbSize = SizeOf(wc)
    wc.style = CS_HREDRAW OR CS_VREDRAW
    wc.lpfnWndProc = Cast(WNDPROC, @MainWindowProc)
    wc.cbClsExtra = 0
    wc.cbWndExtra = 0
    wc.hInstance = hInstance
    wc.hIcon = LoadIcon(0, IDI_APPLICATION)
    wc.hIconSm = LoadIcon(0, IDI_APPLICATION)
    wc.hCursor = LoadCursor(0, IDC_ARROW)
    wc.hbrBackground = GetStockObject(WHITE_BRUSH)
    wc.lpszMenuName = 0
    wc.lpszClassName = StrPtr(szClassName)
 
    RegisterClassEx(@wc)
 
    hMainWnd = CreateWindowEx(WS_EX_CLIENTEDGE, StrPtr(szClassName),  "Главное окно", WS_OVERLAPPEDWINDOW, CW_USEDEFAULT,  CW_USEDEFAULT, 320, 240, 0, 0,  hInstance, BYVAL 0)
                      
    hButton = CreateWindow("BUTTON", "Нажми меня", WS_CHILD OR WS_VISIBLE OR BS_PUSHBUTTON, 100, 100, 100, 30, hMainWnd, 1, hInstance, BYVAL 0)
 
    ShowWindow(hMainWnd, SW_SHOWNORMAL)
    UpdateWindow(hMainWnd)
END SUB
 
SUB CreateSecondWindow()
    hSecondWnd = CreateWindowEx(WS_EX_CLIENTEDGE, StrPtr(szClassName),  "Второе окно", WS_OVERLAPPEDWINDOW, CW_USEDEFAULT, CW_USEDEFAULT, 320, 240, 0, 0, hInstance, BYVAL 0)
 
    ShowWindow(hSecondWnd, SW_SHOWNORMAL)
    UpdateWindow(hSecondWnd)
END SUB
 
ScreenRes 640, 480, 32
 
hInstance = GetModuleHandle(Null)
szClassName = "MainWindowClass"
 
CreateMainWindow()
 
DIM msg AS MSG
 
DO
    IF PeekMessage(msg, Null, 0, 0, PM_REMOVE) THEN
        TranslateMessage(msg)
        DispatchMessage(msg)
    END IF
LOOP UNTIL msg.message = WM_QUIT