GUI run case on pressing enter

[Merchants]

is there a way to press enter and run the case like this i tink:

TesT()
Func TesT()
    Local $GUI, $msg, $Button
    $GUI = GUICreate("TesT", 495, 250)
    $Button = GuiCtrlCreateButton("Ok", 10, 10, 27, 20)
    While 1
        $msg = GUIGetMsg($GUI)
        Select
            Case $msg = $Button or {Enter}
                MsgBox(64,"TesT", "You pressed Ok")
        EndSelect
    WEnd
EndFunc

Edited February 22, 2010 by Merchants

[MHz]

Sure, have a look at styles or exstyles for the button creation function. IIRC, it has one for default button.