B4J Question [SOLVED][ABMaterial] AddHandler

Sub Process_Globals
   .......
   .......
   'from and for GestVis handler
   Public datovis, notifica As String
   Public eseguito as Boolean
   Public pageobject as Object
End Sub

public Sub StartServer(srvr As Server, srvrName As String, srvrPort As Int)
   .......
   .......
   srvr.AddHandler("/" & ABMShared.AppName & "/gestvis", "ABMGestVis", False)
   .......
End Sub

Public Sub Initialize
    ' build the local structure IMPORTANT!
    BuildPage       
    ABMShared.pageobject = Me
End Sub

Sub SetVis
    ABMShared.eseguito = False
        Dim convis As ABMContainer = page.Cell(1,1).Component("convis")
       Dim lbvis As ABMLabel = convis.Cell(1,1).Component("lbvis")
      lbvis.Text = Paddingstr(ABMShared.datovis, 10)
        ......
        ......
      'perform refresh
       .......
      If ABMShared.notifica <> "" Then
        VisMessageToast(ABMShared.notifica, 2000)
        ABMShared.notifica = ""
    End If
    ABMShared.eseguito = True
End Sub

Sub Class_Globals
    
End Sub

Public Sub Initialize
    
End Sub

Sub Handle(req As ServletRequest, resp As ServletResponse)
    Dim read As Map
    read.Initialize
    read = ReadObject(req.InputStream)
    If ABMShared.eseguito = False Then Return
    ABMShared.datovis= read.GetDefault("dato", "")
    ABMShared.notifica= read.GetDefault("notifica", "")
        .......
        .......
       CallSubDelayed(ABMShared.pageobject, "SetVis")
End Sub

Sub ReadObject (In As InputStream) As Object
    Try
        Dim out As OutputStream
        out.InitializeToBytesArray(0)
        File.Copy2(In, out)
        Dim raf2 As RandomAccessFile
        raf2.Initialize3(out.ToBytesArray, False)
        Dim res As Map
        res.Initialize
        'res = raf2.ReadB4XObject(0)
        res = raf2.ReadObject(0)
    Catch As Exception
        Log(LastException.Message)
    End Try
    raf2.Close
    Return res
End Sub

ABMShared.pageobject = Me

CallSubDelayed3(ChatShared, "NewConnection", Me, ABMPageId)

If ABMPageId <> "" Then CallSubDelayed3(ChatShared, "Disconnected", Me, ABMPageId)

For Each page As ChatPage In connections.Values
       CallSubDelayed2(page, "NewMessage", Message)
Next