Spanish ScrollPane en B4J [SOLUCIONADO]

[IdasI4A]

Me podeis indicar por que este código funciona en B4A, pero da error en B4J.

    Dim Pn As B4XView=xui.CreatePanel("")
    Dim Hay As Int

    Hay=ScrollView1.ScrollViewInnerPanel.NumberOfViews

    Pn.SetLayoutAnimated(0,0,0,ScrollView1.Width,40dip)
    Pn.LoadLayout("lyLabel")
   
    ScrollView1.ScrollViewInnerPanel.AddView(Pn,0,Hay*40dip,ScrollView1.Width,40dip)
    ScrollView1.ScrollViewContentHeight=(Hay+1)*40dip
   
    Dim Lbl As B4XView=Pn.GetView(0)
    Lbl.Text="Texto " & (Hay+1)
    Lbl.Color=xui.Color_Cyan

Da el error

java.lang.RuntimeException: Object should first be initialized (B4XView).

en la linea

Hay=ScrollView1.ScrollViewInnerPanel.NumberOfViews

Adjunto el proyecto por si quereis probar.

 

[IdasI4A]

Ya funciona Lo he solucionado añadiendo:

Private Sub B4XPage_Created (Root1 As B4XView)
    Root = Root1
    Root.LoadLayout("MainPage")
    #if b4j
    Dim pnScrollView1 As Pane
    pnScrollView1.Initialize( "")
    Dim Sv As ScrollPane
    Sv=ScrollView1
    Sv.InnerNode=pnScrollView1
    #end if
End Sub