Italian [Risolto] [B4J] Non colora background B4XPages

Private Sub B4XPage_Appear
    Dim fx As JFX
    B4XPages.GetNativeParent(Me).Title="PIPPO"
    B4XPages.GetNativeParent(Me).WindowHeight=400
    B4XPages.GetNativeParent(Me).WindowWidth=400
    B4XPages.GetNativeParent(Me).Resizable=False
    SQL1.InitializeSQLite(Main.DbDir,Main.DbFile,False)
    RS1=SQL1.ExecQuery("SELECT * FROM pippo WHERE ID = " & Main.iID & "")
    Do While RS1.NextRow
        Dim iCol As Int=RS1.GetInt("colore")
        If iCol = 1 Then
            B4XPages.getnativeparent(Me).BackColor=fx.Colors.Yellow
        else if iCol = 2 Then
            B4XPages.GetNativeParent(Me).BackColor=fx.Colors.ARGB(255,169,255,169)
        Else If iCol = 3 Then
            B4XPages.GetNativeParent(Me).BackColor=fx.Colors.ARGB(255,169,255,250)
        End If
        lblTitolo.As(Label).Text=RS1.GetString("titolo")
        lblTesto.As(Label).Text=RS1.GetString("testo")
    Loop
End Sub

Root.GetView(0).Parent.Color = xui.Color_ARGB(255,Rnd(0,255),Rnd(0,255),Rnd(0,255))

    SQL1.InitializeSQLite(Main.DbDir,Main.DbFile,False)
    RS1=SQL1.ExecQuery("SELECT * FROM pippo WHERE ID = " & Main.iID & "")
    Do While RS1.NextRow
        Dim iCol As Int=RS1.GetInt("colore")
        If iCol = 1 Then
            B4XPages.getnativeparent(Me).BackColor=fx.Colors.Yellow
        else if iCol = 2 Then
            B4XPages.GetNativeParent(Me).BackColor=fx.Colors.ARGB(255,169,255,169)
        Else If iCol = 3 Then
            B4XPages.GetNativeParent(Me).BackColor=fx.Colors.ARGB(255,169,255,250)
        End If

Dim MyColors(3) As Int = Array As Int(xui.Color_Yellow, xui.Color_ARGB(255,169,255,169), xui.Color_ARGB(255,169,255,250))
SQL1.InitializeSQLite(Main.DbDir,Main.DbFile,False)
RS1=SQL1.ExecQuery("SELECT * FROM pippo WHERE ID = " & Main.iID & "")
Do While RS1.NextRow
    Dim iCol As Int = RS1.GetInt("colore") - 1
    Root.Color = MyColors(iCol)