DIM hButton[3] AS Button

hButton[0] = NEW Button(ME) AS "MesBoutons"
hButton[0].Text = "Rouge";

hButton[1] = NEW Button(ME) AS "MesBoutons"
hButton[1].Text = "Vert"

hButton[2] = NEW Button(ME) AS "MesBoutons"
hButton[2].Text = "Bleu"

...

PUBLIC SUB MesBoutons_Click()

  PRINT LAST.Text

END