' Gambas class filePUBLIC SUB tgbOnOff_Click() IF tgbOnOff.Value = TRUE THEN tgbOnOff.Text = ("Enclenché" ELSE tgbOnOff.Text = ("Éteint")ENDPUBLIC SUB tbQuitter_Click() ME.Close()END