'Assign a JavaObject as Slider
Dim joSlider As JavaObject = SliderDlgThermostatSetpoint
joSlider.RunMethod("setBlockIncrement", Array(1.0)) ' Must be double
joSlider.RunMethod("setMajorTickUnit", Array(5.0)) ' Must be double
joSlider.RunMethod("setMinorTickCount", Array(10)) ' Must be Int
joSlider.RunMethod("setShowTickLabels", Array(True))
joSlider.RunMethod("setShowTickMarks", Array(True))
joSlider.RunMethod("setValueChanging", Array(True))
joSlider.RunMethod("setSnapToTicks", Array(True))