myGui := Gui()
ogcButtonOK := myGui.Add("Button", "x8 y8 w80 h23", "&OK")
ogcButtonOK.OnEvent("Click", OnEventHandler)
myGui.OnEvent('Close', (*) => ExitApp())
myGui.Title := "Window"
myGui.Show("w120 h46")

OnEventHandler(*)
{
    ToolTip("Click! This is a sample action.`n"
    . "Active GUI element values include:`n"
    . "ogcButtonOK => " ogcButtonOK.Text "`n", 77, 277)
    SetTimer () => ToolTip(), -3000 ; tooltip timer
}