; Создаём окно.
OpenWindow(1,150,200,200,100,"Заголовок окна",#PB_Window_MinimizeGadget)
ButtonGadget(2,50,30,80,25,"Кнопка")
Repeat ; Начало главного цикла.
Event=WaitWindowEvent() ; Получаем идентификатор события.
Gadget=EventGadget() ; Узнаём идентификатор активного гаджета.
If Event=#PB_Event_Gadget And Gadget=2 ; Условие будет выполнено при щелчке по кнопке.
MessageRequester("Сообщение","Была нажата кнопка") ; Выводим на экран сообщение.
EndIf
Until Event = #PB_Event_CloseWindow ; Прерываем цикл если в переменной "Event" будет число равное числу в константе.
End ; Директива, завершающая программу.
http://purebasic.com/documentation/gadget/buttongadget.html
[ссылка заблокирована по решению администрации проекта]. ru/manual.php?id=468&lng=rus