Public Sub closeServer()
        running = False
        Call logInteraction("*** INIT SHUTDOWN ***")
 
        Dim i As Integer
        For i = 0 To USR_LIMIT
            If (Not (clients(i) Is Nothing)) Then
                clients(i).close()
                clients(i) = Nothing
            End If
        Next i
        Call logInteraction("*** CLIENTS CLOSED ***")
 
        ns.Close()
        ns = Nothing
 
        client.Close()
        client = Nothing
 
        listener.Stop()
        listener = Nothing
 
        Call logInteraction("*** SERVER DOWN ***")
        Application.Exit()
    End Sub