B4J Question tcp server

Sub Process_Globals
    Private fx As JFX
    Private MainForm As Form
    Dim lblIP As Label
    Dim ImageView1 As ImageView
    Dim lblstatus As Label
    Private server As ServerSocket
    Private astream As AsyncStreams
    Dim lblstatus As Label
    Dim List1 As ListView
    Dim fullstring As String
End Sub

Sub AppStart (Form1 As Form, Args() As String)
    MainForm = Form1
    MainForm.RootPane.LoadLayout("main") 'Load the layout file.
    MainForm.Show
   
    server.Initialize(10203, "server")
    server.Listen   
End Sub

Sub server_NewConnection (Successful As Boolean, NewSocket As Socket)
        If Successful Then
        If astream.IsInitialized Then astream.Close
        'astream.InitializePrefix(NewSocket.InputStream, False, NewSocket.OutputStream, "astream")
        astream.Initialize(NewSocket.InputStream, NewSocket.OutputStream, "astream")
        'astream.Initialize(Me, "astream", NewSocket.InputStream, NewSocket.OutputStream)
        lblstatus.Text = "Status: Connected"
    Else
        Log(LastException)
    End If
    server.Listen
End Sub


Sub astream_NewData (Buffer() As Byte)
Dim str As String
str = BytesToString(Buffer, 0, Buffer.Length, "UTF-8")

List1.Items.Add(str)
End Sub

Sub astream_Error
    Log("Error: " & LastException)
    astream.Close
    astream_Terminated
End Sub

Sub astream_Terminated
    lblstatus.Text = "Status: Disconnected"
End Sub