Démonstration des Dial
' Gambas class filePUBLIC SUB tbQuitter_Click() ME.Close()ENDPUBLIC SUB LCDLabel1_Arrange() LCDLabel1.Text = Str$(Dial1.Value)ENDPUBLIC SUB Dial1_Change() LCDLabel1_Arrange()END