#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <WinAPI.au3>

Dim $aItems[3] = ["Hi", "Wie gehts?", "Tschüss"]

$hIems = GUICreate("Test", 259, 138, -1, -1)
GUISetFont(12, 400, 0, "Arial")
$Button1 = GUICtrlCreateButton("Button1", 16, 56, 64, 64)
$Title = GUICtrlCreateInput("---", 16, 16, 233, 26)
$Arrow = GUICtrlCreateUpdown($Title)
$Button2 = GUICtrlCreateButton("Button2", 96, 56, 64, 64)
$Button3 = GUICtrlCreateButton("Button3", 176, 56, 64, 64)
GUISetState(@SW_SHOW)

GUIRegisterMsg($WM_COMMAND, "_MY_WM_COMMAND")

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case -3
            Exit
;~      Case $Arrow
    EndSwitch
WEnd

Func _MY_WM_COMMAND($hWnd, $nMsg, $wParam, $lParam)
    ConsoleWrite(BitShift($wParam, 16) & ' ' & BitAND($wParam, 0xFFFF) & ' ' & GUICtrlRead(BitAND($wParam, 0xFFFF), 1) & @CR)
EndFunc