Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
MainForm.RootPane.LoadLayout("Layout1")
MainForm.Show
Dim root As B4XView = MainForm.RootPane
Dim ellipse As JavaObject = CreateEllipse(50dip, 100dip)
ellipse.RunMethod("setFill", Array(fx.Colors.Blue))
root.AddView(ellipse, 210dip, 10dip, 100dip, 100dip)
End Sub
Private Sub CreateEllipse (RadiusX As Double, RadiusY As Double) As JavaObject
Dim Ellipse As JavaObject
Ellipse.InitializeNewInstance("javafx.scene.shape.Ellipse", Array(RadiusX, RadiusY))
Return Ellipse
End Sub