B4J Question treeview and refreshing

Sub Process_Globals
   Private fx As JFX
   Private MainForm As Form
   
   Private timer1 As Timer
   
   Private treeview_1 As TreeView
   Dim treeview_item As TreeItem
   Private state As Boolean
   
   Dim lblcount As Label
   Dim counter As Int
   Dim imggreen As Image
   Dim imgred As Image
End Sub

Sub AppStart (Form1 As Form, Args() As String)
   MainForm = Form1
   MainForm.RootPane.LoadLayout("layout_main") 'Load the layout file.
   MainForm.Show
   
   
   timer1.Initialize("timer1_event",10)
   timer1.Enabled = True
   
   
   Dim img As Image
   img.Initialize("","green.jpg")
   treeview_item.Initialize("","item 1")
   treeview_item.Image = img
   state = True
   treeview_1.Root.Children.Add(treeview_item)
   imggreen.Initialize("","green.jpg")
   
   imgred.Initialize("","red.jpg")
End Sub

Sub timer1_event_tick
   counter = counter + 1
   lblcount.Text = counter
   Dim treeview_item As TreeItem
   If (state = True) Then
     treeview_item.Initialize("", "red")
     treeview_item.Image = imgred
     state = False
   Else
     treeview_item.Initialize("", "green")
     treeview_item.Image = imggreen
     state = True
   End  If
   Dim jo As JavaObject = treeview_1.Root.Children
   jo.RunMethod("setAll",  Array As Object(Array As Object(treeview_item)))
End Sub

#Region  Project Attributes
    #MainFormWidth: 600
    #MainFormHeight: 400
#End Region

Sub Process_Globals
    Private fx As JFX
    Private MainForm As Form
   
    Private timer1 As Timer
   
    Private treeview_1 As TreeView
    Dim treeview_item(2) As TreeItem
    Private state As Boolean
   
    Dim lblcount As Label
    Dim counter As Int
   
    Dim imggreen As Image
  Dim imgred As Image
End Sub

Sub AppStart (Form1 As Form, Args() As String)
    MainForm = Form1
    MainForm.RootPane.LoadLayout("layout_main") 'Load the layout file.
    MainForm.Show
   
   
    timer1.Initialize("timer1_event",1000)
    timer1.Enabled = True
   
   

    imggreen.Initialize("","green.jpg")
    imgred.Initialize("","red.jpg")   
   
    treeview_item(0).Initialize("","item 1")
    treeview_item(0).Image = imggreen
    treeview_item(1).Initialize("","item 1")
    treeview_item(1).Image = imgred
    state = True
    treeview_1.Root.Children.Add(treeview_item(0))
    treeview_1.Root.Children.Add(treeview_item(1))
   
End Sub

Sub timer1_event_tick
    counter = counter + 1
  lblcount.Text = counter
  Dim treeview_item(2) As TreeItem
  If (state = True) Then
    treeview_item(0).Initialize("", "red")
    treeview_item(0).Image = imgred
    state = False
  Else
    treeview_item(0).Initialize("", "green")
    treeview_item(0).Image = imggreen
    state = True
  End  If
  Dim jo As JavaObject = treeview_1.Root.Children
  jo.RunMethod("setAll",  Array As Object(Array As Object(treeview_item(0))))
End Sub

jo.RunMethod("setAll", ArrayAsObject(treeview_item))