#Region Project Attributes
#MainFormWidth: 600
#MainFormHeight: 400
#End Region
Sub Process_Globals
Type Custom_Item(a As Int, b As String, c As TextField, d As Pane, e As Float)
Private fx As JFX
Private MainForm As Form
Private TextField1 As TextField
Dim img As ImageView
Dim b As Button
Dim C_Item As Custom_Item
Dim pnl1 As Pane
End Sub
Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
MainForm.SetFormStyle("UNIFIED")
' MainForm.RootPane.LoadLayout("1") 'Load the layout file.
MainForm.Show
b.Initialize("b")
img.Initialize("img")
pnl1.Initialize("pnl1")
TextField1.Initialize("txtfl")
C_Item.a = 5
C_Item.b = "b"
C_Item.c = TextField1
C_Item.d = pnl1
C_Item.e = 120052120.2263254633
Dim fruits() As Object
fruits = Array As String ("banna", "mango", "apple", "lemon")
fruits = Array_Add(fruits, "mango")
fruits = Array_Add(fruits, "orange")
fruits = Array_Add(fruits, "apricot")
fruits = Array_Add(fruits, 10)
fruits = Array_Add(fruits, img)
fruits = Array_Add(fruits, b)
fruits = Array_Add(fruits, C_Item)
For i = 0 To fruits.Length - 1
Log(fruits(i))
Next
End Sub
Sub Array_Add(arr() As Object, newitem As Object) As Object
Dim new_array(arr.Length+1) As Object
For i = 0 To arr.Length - 1
new_array(i) = arr(i)
Next
new_array(new_array.Length-1) = newitem
Return new_array
End Sub