; Создаём окно.
  OpenWindow(1,150,200,200,100,"Заголовок окна",#PB_Window_MinimizeGadget)
  TextGadget(1, 50,20,100,16,"Это текст")
  ButtonGadget(2,50,50,80,25,"Кнопка")
  
  Repeat ; Начало главного цикла Repeat-Until.
  Event=WaitWindowEvent() ; Получаем идентификатор события.
  Gadget=EventGadget() ; Узнаём идентификатор гаджета в котором произошло событие.
   
   If Event=#PB_Event_Gadget ; Произошло событие в гаджете
    If Gadget=2 ; Условие будет выполнено при щелчке по кнопке (у неё идентификатор 2).
      SetGadgetText(1,"Привет мир!") ; Изменяет тест в гаджете с идентификаторм 1 (у нас это TextGadget)
    EndIf
   EndIf 
     
  Until Event = #PB_Event_CloseWindow ; Прерываем цикл если в переменной "Event" будет число равное числу в константе.

; Создаём окно.
  OpenWindow(1,150,200,400,400,"Заголовок окна",#PB_Window_MinimizeGadget)
  ButtonGadget(2,20,20,80,25,"Кнопка")
  
  Count=0
  
  Repeat ; Начало главного цикла Repeat-Until.
  Event=WaitWindowEvent() ; Получаем идентификатор события.
  Gadget=EventGadget() ; Узнаём идентификатор гаджета в котором произошло событие.
   
   If Event=#PB_Event_Gadget ; Произошло событие в гаджете
    If Gadget=2 ; Условие будет выполнено при щелчке по кнопке (у неё идентификатор 2)
      Count+1
      TextGadget(#PB_Any,Random(300), Random(400), 100,16, "Это надпись №"+Str(Count))
    EndIf
   EndIf 
     
  Until Event = #PB_Event_CloseWindow ; Прерываем цикл если в переменной "Event" будет число равное числу в константе.

; PureBasic Visual Designer v3.95 build 1485 (PB4Code)


;- Window Constants
;
Enumeration
  #Window_0
  #Window_1
EndEnumeration

;- Gadget Constants
;
Enumeration
  #Button_0
EndEnumeration


Procedure Open_Window_0()
  If OpenWindow(#Window_0, 379, 244, 115, 155, "MainForm",  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar )
    
      ButtonGadget(#Button_0, 10, 10, 95, 25, "О программе")
      
   
  EndIf
EndProcedure

Procedure Open_Window_1()
  If OpenWindow(#Window_1, 458, 261, 251, 60, "О программе",  #PB_Window_SystemMenu | #PB_Window_TitleBar )
 
  EndIf
EndProcedure

Open_Window_0() ; запускаем первое окно


Repeat

event=WaitWindowEvent() ; команда ожидания события
 
If event = #PB_Event_Gadget   ;Условие срабатывания кнопки
        If EventGadget() = #Button_0
        Open_Window_1()
        EndIf
EndIf
Until event=#PB_Event_CloseWindow ;Условие выхода из цикла

; PureBasic Visual Designer v3.95 build 1485 (PB4Code)


;- Window Constants
;
Enumeration
  #Window_0
  #Window_1
EndEnumeration

;- MenuBar Constants
;
Enumeration
  #MenuBar_0
EndEnumeration

Enumeration
  #MENU_1
  #MENU_2
  #MENU_4
  #MENU_6
  #MENU_3
  #MENU_8
  #MENU_9
EndEnumeration


Procedure Open_Window_0()
  If OpenWindow(#Window_0, 211, 146, 600, 300, "MainForm",  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar )
    If CreateMenu(#MenuBar_0, WindowID(#Window_0))
      MenuTitle("Файл")
      MenuItem(#MENU_1, "Открыть")
      MenuItem(#MENU_2, "Сохранить")
      MenuBar()
      MenuItem(#MENU_4, "Выход")
      MenuTitle("Помощь")
      MenuItem(#MENU_8, "О программе")
      EndIf

      If CreateGadgetList(WindowID(#Window_0))
        
      EndIf
    EndIf
EndProcedure

Procedure Open_Window_1()
  If OpenWindow(#Window_1, 370, 270, 240, 86, "О программе",  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar )
    If CreateGadgetList(WindowID(#Window_1))
      
    EndIf
  EndIf
EndProcedure
Open_Window_0()

Repeat ; Начало главного цикла Repeat-Until.
  Event=WaitWindowEvent() ; Получаем идентификатор события.
  Gadget=EventGadget() ; Узнаём идентификатор гаджета в котором произошло событие.
  Window=EventWindow() ; Получаем идентификатор окна, в котором произошло событие
   Menu=EventMenu()
  
If Window=#Window_0 ; Обработчик событий для окна "MainForm"
  
     If Event=#PB_Event_Menu ; Произошло событие в меню
       If Menu=#MENU_8 ; Пункт меню "О программе".
         Open_Window_1()
       ElseIf Menu=#MENU_4
         End
       EndIf
     EndIf


 
ElseIf Window=#Window_1 ; Обработчик событий для окна "О программе"
    If Event = #PB_Event_CloseWindow
       CloseWindow(#Window_1)
    EndIf
EndIf
     
Until Event = #PB_Event_CloseWindow And Window=#Window_0 ; Прерываем цикл если в переменной "Event" будет число равное числу в константе.