#include <GUI_Style_UDF.au3>
Dim $GUI[16]
GUICreate("Beispiel", 348, 688, -1, -1, BitOR($WS_MINIMIZEBOX,$WS_SYSMENU,$WS_DLGFRAME,$WS_POPUP,$WS_GROUP,$WS_CLIPSIBLINGS))
GUISetBkColor(0xFFFFFF)
$GUI[0] = _NewFormCloseButton("Beispiel")
$GUI[1] = _NewFormMinimizeButton("Beispiel")
$GUI[2] = _NewFormBar("Beispiel",Default,"Beispiel")
$GUI[3] = _NewButton(150, 32,Default,Default,"Beispiel")
$GUI[4] = _NewSwitchButton( 150, 72,Default,Default,"Beispiel")
$GUI[5] = _NewTextField(150, 112)
$GUI[6] = _NewPasswordField( 150, 152)
$GUI[7] = _NewNumberField(150, 192)
$GUI[8] = _NewTextArea( 150, 232)
$GUI[9] = _NewProgressBar(150, 336,Default,Default,Default,Default,10)
$GUI[10] = _NewProgressSlider(150, 376,Default,Default,Default,Default,80)
$GUI[11] = _NewSlider(150, 416,Default,Default,Default,Default,50)
$GUI[12] = _NewCheckBox( 150, 456)
$GUI[13] = _NewRadioBox(150, 496)
$GUI[14] = _NewList(150, 544)
$GUI[15] = _NewText(150, 656,100,Default,"Beispiel")
GUICtrlCreateLabel("_NewButton", 10, 36, 63, 17)
GUICtrlCreateLabel("_NewSwitchButton", 10, 76, 95, 17)
GUICtrlCreateLabel("_NewText", 10, 660, 53, 17)
GUICtrlCreateLabel("_NewTextField", 10, 116, 75, 17)
GUICtrlCreateLabel("_NewPasswordField", 10, 156, 100, 17)
GUICtrlCreateLabel("_NewNumberField", 10, 196, 91, 17)
GUICtrlCreateLabel("_NewTextArea", 10, 236, 75, 17)
GUICtrlCreateLabel("_NewProgressBar", 10, 340, 89, 17)
GUICtrlCreateLabel("_NewProgressSlider", 10, 380, 99, 17)
GUICtrlCreateLabel("_NewSlider", 10, 420, 58, 17)
GUICtrlCreateLabel("_NewCheckBox", 10, 460, 81, 17)
GUICtrlCreateLabel("_NewRadioBox", 10, 500, 78, 17)
GUICtrlCreateLabel("_NewList", 10, 540, 48, 17)
GUISetState(@SW_SHOW)
While 1
	_SetHover("Beispiel")
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case _GetHandle($GUI[1])
			GUISetState(@SW_MINIMIZE)
		Case _GetHandle($GUI[0])
			Exit
	EndSwitch
WEnd