My-first add/subs click program

val = Controls.AddTextBox(0,0)
Controls.SetSize(val, 100, 50)
add = Controls.AddButton("+",300,0)
subs = Controls.AddButton("-",400,0)

Controls.ButtonClicked = process

Sub process
  If Controls.LastClickedButton = add then
    val1 = Controls.GetTextBoxText(val)
    val1 = val1 + 1
    Controls.SetTextBoxText(val, val1)
  Else
    val1 = Controls.GetTextBoxText(val)
    val1 = val1 - 1
    Controls.SetTextBoxText(val, val1)
  endif
 
EndSub