B4J Question is it possible to make a ServerSocket run side by side with Jserver websocket ?

Sub Class_Globals
  
    Private cserver As ServerSocket
    Private astreams As AsyncStreams
  
End Sub

'Initializes the object. You can add parameters to this method if needed.
Public Sub Initialize
  
    cserver.Initialize(3556,"cserver")
    cserver.Listen
  
    Log("Server Socket running >: "&cserver.GetMyIP&":3556")
  
End Sub

private Sub cserver_NewConnection (Successful As Boolean, NewSocket As Socket)
  
    If (Successful = True) Then
        Log("Um usuario foi conectado")
        astreams.Initialize(NewSocket.InputStream,NewSocket.OutputStream, "astreams")
    Else
        Log("Erro ao conectar.")
    End If
  
End Sub

Sub astreams_Terminated
    Log("Baitola Desconectado.")
End Sub

Sub astreams_NewData (Buffer() As Byte)
  
    Dim msg As String
    msg = BytesToString(Buffer, 0, Buffer.Length, "UTF-8")
  
    Log("Msg recebida = "&msg)
  
End Sub

#Region Project Attributes
    #CommandLineArgs:
    #MergeLibraries: True
#End Region

Sub Process_Globals
    Private srvr As Server
    Private csrvr As ServerSocket
End Sub

Sub AppStart (Args() As String)
  
    srvr.Initialize("srvr")
    srvr.Port = 51042
    srvr.StaticFilesFolder = File.Combine(File.DirApp, "www")
    srvr.AddHandler("/guessmynumber/guess", "GuessMyNumber", False)
    srvr.AddHandler("/guessmynumber/reset", "ResetMyNumber", False)
    srvr.AddWebSocket("/guessmynumber_ws/ws", "WSGuessMyNumber")
    srvr.Start
    Log("Server Websocket running >: "&"127.0.0.1:"&srvr.Port)
  
    csrvr.Initialize
  
    StartMessageLoop
    'open browser and navigate to: http://127.0.0.1:51042/
End Sub