\' Gambas class file
Public Sub _new()
End
Public Sub Form_Open()
End
Public Sub Slider1_Change()
ProgressBar1.value = Slider1.Value / 100
End
Public Sub Dial1_Change()
LabelDial.text = Dial1.Value
End
Public Sub ScrollBar1_Change()
LabelScrollBarVertical.text = ScrollBar1.value
End
Public Sub ScrollBar2_Change()
LabelScrollBarHorizontal.text = ScrollBar2.Value
End