Because it does not work ?

Question

GraphicsWindow.Show()

GraphicsWindow.LastKey = onClick

Sub onClick

T = GraphicsWindow.LastKey

If T = 1 Then
Goto Parte1
EndIf

If T = 2 Then
Goto Parte2
EndIf

EndSub

Parte1:
GraphicsWindow.ShowMessage("Premuto 1","Avviso")

Program.End()

Parte2:
GraphicsWindow.ShowMessage("Parte2","Avviso")

Program.End()

Answer 1

General hints for clean programming :

• do NOT use GoTo xxx , especially out of subroutines,
• put all subroutines at the end of ther program, after the main program.

Answer 2

The following program works! :

GraphicsWindow.Show()
GraphicsWindow.KEYUP = onClick

While 0=0
  Program.Delay(100)
EndWhile

Sub onClick

  T = GraphicsWindow.LastKey
  GraphicsWindow.DrawText(10,10,T)  ''to show the key text returned

  If T = "D1" Then
    GraphicsWindow.ShowMessage("Premuto 1","Avviso")
    Program.End()
  EndIf

  If T = "D2" Then
    GraphicsWindow.ShowMessage("Parte2","Avviso")
    Program.End()
  EndIf

EndSub