[Окна, Диалоги] Как поставить событие на button

[MaxImba]

У меня проблема!
Нужно поставить на Button событие на клик , Что бы при нажатии на кнопку вышло , допустим

MsgBox(0, "Test", "Hello World!")

Вот тело программы

#include <GUIConstants.au3>
GUICreate ("Test", 260, 230)
$CTRL_btn1 = GUICtrlCreateButton ("Hi", 54, 138, 36, 29)
GUISetState()
Do
  $msg = GUIGetMsg()

Until $msg = $GUI_EVENT_CLOSE

Тоесть на

$CTRL_btn1 = GUICtrlCreateButton ("Hi", 54, 138, 36, 29)

Нужно поставить событие !!! :IL_AutoIt_1:

 

[Zaramot]

#include <GUIConstants.au3>

GUICreate ("Test", 260, 230)
$CTRL_btn1 = GUICtrlCreateButton ("Hi", 54, 138, 36, 29)
GUISetState()

While 1
	Switch GUIGetMsg()
		Case $GUI_EVENT_CLOSE
			Exit
		Case $CTRL_btn1
			MsgBox(0, "Test", "Hello World!")
	EndSwitch
WEnd