Ejercicio 20

“PIENSA”

' Gambas class file

PUBLIC SUB Form_Open()

ME.Center

ME.Caption = "PIENSA"

END

PUBLIC SUB TextLabel1_MouseDown()

END

PUBLIC SUB TextLabel1_DblClick()

TextLabel1.Text = InputBox("¿ESCRIBE TUS IDEAS", "TEXTO O NÚMEROS", "PIENSA")

END

PUBLIC SUB Button1_Click()

TextLabel1.Text = ""

END

PUBLIC SUB Button2_Click()

FMain.Show

Form5.Hide

END