#include <GuiConstantsEx.au3>
Global $hGUI_1, $hGUI_2, $hGUI_3
Global $nGUI_1_Button, $nGUI_2_Checkbox, $nGUI_3_Button, $nGUI_3_Input
Opt("TrayMenuMode", 1)
Opt("TrayOnEventMode", 1)
Opt("GUIOnEventMode", 1)
TraySetClick(16)
$Func_1_TrayItem = TrayCreateItem("Функция №1")
TrayItemSetOnEvent(-1, "_GUICreate_Func_1")
$Func_2_TrayItem = TrayCreateItem("Функция №2")
TrayItemSetOnEvent(-1, "_GUICreate_Func_2")
$Func_3_TrayItem = TrayCreateItem("Функция №3")
TrayItemSetOnEvent(-1, "_GUICreate_Func_3")
TrayCreateItem("")
$Exit_TrayItem = TrayCreateItem("Exit")
TrayItemSetOnEvent(-1, "_exit")
While 1
Sleep(1000)
WEnd
Func _GUICreate_Func_1()
Local $iOldEvent = Opt("GUIOnEventMode", 1)
ToolTip("")
$hGUI_1 = GUICreate("Функция №1", 300, 120, 350, 150)
GUICtrlCreateButton("Кнопка", 20, 40, 60, 20)
GUISetOnEvent(-1, "_button1")
GUISetState(@SW_SHOW, $hGUI_1)
GUISetOnEvent($GUI_EVENT_CLOSE, "_closefrm")
Opt("GUIOnEventMode", $iOldEvent)
EndFunc ;==>_GUICreate_Func_1
Func _GUICreate_Func_2()
Local $iOldEvent = Opt("GUIOnEventMode", 0)
ToolTip("")
$hGUI_2 = GUICreate("Функция №2", 300, 120, 350, 300)
$nGUI_2_Checkbox = GUICtrlCreateCheckbox("Галочка", 20, 40, 60, 20)
GUISetState(@SW_SHOW)
While 1
Local $msg = GUIGetMsg()
Switch $msg
Case $GUI_EVENT_CLOSE
ToolTip("")
GUISetState(@SW_HIDE, $hGUI_2)
GUIDelete($hGUI_2)
ExitLoop
Case $nGUI_2_Checkbox
Local $sCheckbox_Data = "Вы сняли отметку с галочки."
If GUICtrlRead($nGUI_2_Checkbox) == $GUI_CHECKED Then $sCheckbox_Data = "Вы поставили отметку на галочке."
ToolTip($sCheckbox_Data, -1, -1, "Инфо", 1)
EndSwitch
WEnd
Opt("GUIOnEventMode", $iOldEvent)
EndFunc ;==>_GUICreate_Func_2
Func _GUICreate_Func_3()
Local $iOldEvent = Opt("GUIOnEventMode", 1)
ToolTip("")
$hGUI_3 = GUICreate("Функция №3", 300, 120, 350, 450)
$nGUI_3_Input = GUICtrlCreateInput("Строка", 20, 10, 260, 20)
$nGUI_3_Button = GUICtrlCreateButton("Показать ввод", 20, 40, 120, 20)
GUISetOnEvent(-1, "_button3")
GUISetOnEvent($GUI_EVENT_CLOSE, "_closefrm")
GUISetState(@SW_SHOW)
Opt("GUIOnEventMode", $iOldEvent)
EndFunc ;==>_GUICreate_Func_3
Func _exit()
Exit
EndFunc ;==>_exit
Func _button1()
ToolTip("Вы нажали Кнопку.", -1, -1, "Инфо", 1)
EndFunc ;==>_button1
Func _button3()
ToolTip("Вы ввели: " & GUICtrlRead($nGUI_3_Input), -1, -1, "Инфо", 1)
EndFunc ;==>_button3
Func _closefrm()
ToolTip("")
GUISetState(@SW_HIDE, @GUI_WinHandle)
GUIDelete(@GUI_WinHandle)
EndFunc ;==>_closefrm |
И даже такой оператор как COMMON, аналог absolute в паскале, или union в С. Я писал и на фортране. Очень тяжело перестроиться со структурного на ООП стиль программирования. По разному мозги должны быть устроены. 
