ScrollBarDial

' 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