Sub Streams_Terminated
If Sender <> Streams Then Return
UpdateStatus(False, True)
Sub UpdateStatus (Connected As Boolean, AllowFurtherConnections As Boolean)
ConnectedStatus = Connected
If Connected Then
Else
If Streams.IsInitialized Then Streams.Close