$Gui = GUICreate('My program', 420, 250, -1, 30)
$MsgFile = GUICtrlCreateButton("Button", 20, 20, 90, 30)
GUISetState ()
While 1
$msg = GUIGetMsg()
Select
Case $msg = $MsgFile
_MsgFile()
Case $msg = -3
Exit
EndSelect
WEnd
Func _MsgFile()
$GuiPos = WinGetPos($Gui)
GUISetState(@SW_DISABLE, $Gui)
$Gui1 = GUICreate('Сообщение', 200, 70,$GuiPos[0]+110, $GuiPos[1]+100, -1, 0x00000080,$Gui)
GUICtrlCreateLabel('Что будем делать сейчас?', 20, 10, 180, 23)
$EditBut=GUICtrlCreateButton('Редактор', 10, 40, 80, 22)
$StrBut=GUICtrlCreateButton ('Калькулятор', 100, 40, 80, 22)
GUISetState(@SW_SHOW, $Gui1)
$msg = $Gui1
While 1
$msg = GUIGetMsg()
Select
Case $msg = $EditBut
Run('Notepad.exe')
Case $msg = $StrBut
ShellExecute('Calc.exe')
Case $msg = -3
$msg = $Gui
GUISetState(@SW_ENABLE, $Gui)
GUIDelete($Gui1)
ExitLoop
EndSelect
WEnd
EndFunc