Dim astream As AsyncStreams = Sender
If Main.Bls1ClientMap.ContainsKey(astream) =False Then Return
Dim cl As Bls1Client=Main.Bls1ClientMap.Get(astream)
Log(Mysub.mydate(DateTime.Now, "yyyy-MM-dd HH:mm:ss") & ", Astream terminated with " & cl.IP & ", BLS1 " & cl.V_ID)
astream.SendAllAndClose
cl.Sock.Close
Main.Bls1ClientMap.Remove(astream)