Puede escribir la letra "a" "b" y se mostrara un mensaje

Puede escribir la letra "a" "b" y se mostrara un mensaje

' Gambas class file


PUBLIC SUB _new()


END


PUBLIC SUB Form_Open()


END


PUBLIC SUB Button3_Click()
QUIT
END


PUBLIC SUB Button2_Click()
TextBox1.Text = ""
END


PUBLIC SUB Button1_Click()
SELECT CASE TextBox1.Text
CASE "a", "A"
Message("AGUILA")
CASE "b", "B"
Message("TIGRES")
CASE ELSE
Message("NO HAY")
END SELECT
END