#Region Project Attributes
#MainFormWidth: 600
#MainFormHeight: 400
#End Region
Sub Process_Globals
Private fx As JFX
Private MainForm As Form
Private Button1 As Button
End Sub
Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
MainForm.SetFormStyle("UNIFIED")
MainForm.RootPane.LoadLayout("Layout1") 'Load the layout file.
MainForm.Show
End Sub
Sub Button1_MouseClicked (EventData As MouseEvent)
Dim NearPoint As LatLng
Dim NearPointLat As Double = 52.750137
Dim NearPointLon As Double = 1.072345
Dim FarPoint As LatLng
Dim FarPointLat As Double = 52.707931
Dim FarPointLon As Double = 1.550293
Dim Here As JavaObject
NearPoint.Initialize(NearPointLat, NearPointLon)
Here.InitializeNewInstance("com.lynden.gmapsfx.javascript.object.LatLong", Array (NearPoint.Latitude, NearPoint.Longitude))
FarPoint.Initialize(FarPointLat, FarPointLon)
Log(Here.RunMethod("distanceFrom", Array (FarPoint)))
End Sub