#AdditionalJar: graphview-3.1
Sub Activity_Create(FirstTime As Boolean)
Dim gvdArray As JavaObject
gvdArray.InitializeArray("com.jjoe64.graphview.GraphView.GraphViewData", Array( _
CreateGVD(1, 2), _
CreateGVD(2, 1.5), _
CreateGVD(3, 2.5), _
CreateGVD(4, 1)))
Dim gvs As JavaObject
gvs.InitializeNewInstance("com.jjoe64.graphview.GraphViewSeries", Array(gvdArray))
Dim graphView As JavaObject
graphView.InitializeNewInstance("com.jjoe64.graphview.LineGraphView", _
Array(GetContext, "title")).RunMethod("addSeries", Array(gvs))
Activity.AddView(graphView, 0, 0, 100%x, 100%y)
End Sub
Sub CreateGVD(x As Double, y As Double) As JavaObject
Dim jo As JavaObject
jo.InitializeNewInstance("com.jjoe64.graphview.GraphView.GraphViewData", Array(x, y))
Return jo
End Sub