'Add a SpinnerTextField to the RootPane
Sub AddSpinner
Dim spMin As Double = 0
Dim spMax As Double = 10
Dim spInitialValue As Double = 5
Dim spAmountToStepBy As Double = 1
joSpinner.InitializeNewInstance("javafx.scene.control.Spinner", Array(spMin, spMax, spInitialValue, spAmountToStepBy))
MainForm.RootPane.AddNode(joSpinner, 20, 100, 100, 20)
End Sub