iOS Question How to properly close and reopen a ServerSocket

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'Public variables can be accessed from all modules.
    Public App As Application
    Public NavControl As NavigationController
    
    Private Page1 As Page

    Dim hd As HUD
    
    Dim ServerSocket1 As ServerSocket
    Dim AStreams As AsyncStreamsText

    Dim ServerPort=51041 As Int
End Sub

Sub ToastMessageShow(message As String, longTime As Boolean)
    hd.ToastMessageShow(message,longTime)
End Sub

Private Sub Application_Start (Nav As NavigationController)
    NavControl = Nav
    Page1.Initialize("Page1")
    Page1.RootPanel.LoadLayout("Page1")
    NavControl.ShowPage(Page1)

    ServerSocket1.Initialize(ServerPort,"ServerSocket1")
    ServerSocket1.Listen
End Sub

Sub Application_Foreground
    If ServerSocket1.IsInitialized=False Then
        ServerSocket1.Initialize(ServerPort,"ServerSocket1")
        ServerSocket1.Listen
    End If
End Sub

Sub Application_Background
    AStreams.Close
    ServerSocket1.Close
End Sub

Sub ServerSocket1_NewConnection (Successful As Boolean, NewSocket As Socket)
    If Successful Then
        ToastMessageShow("ServerSocket1_NewConnection", False)

        AStreams.Initialize(Me, "AStreams", NewSocket.InputStream, NewSocket.OutputStream)
        AStreams.Write("Hello" & Chr(13) & Chr(10))
    Else
        ToastMessageShow("ServerSocket1_NewConnection failed", False)
    End If

End Sub

Sub AStreams_Terminated
    ToastMessageShow("AStreams_Terminated", False)
    
    AStreams.Close
    ServerSocket1.Listen
End Sub