Private mySock As Socket
Private bKillMe As Boolean ' <- true, wenn Verbindung getrennt werden soll...
 
Private Sub OnRxData(Byval ar As IAsyncResult)
' AsyncCallback für das Empfangendvon Daten (aus mySock.BeginReceive)
Dim iRead As Integer
iRead = mySock.EndReceive(ar)
 
If bKillMe = True Then
  If mySock.Connected = True Then ' kann weggelassen werden??? weil in 
  ' Close/Dispose?
    mySock.ShutDown(ShutDown.Both)
  End If
 
  mySock.Close
  mySock = Nothing
  RaiseEvent ClientDisconnect()
  Exit Sub
End If
 
' Verarbeitung der gelesenen Daten wenn nicht gekillt wedren soll...
' [...]
End Sub
 
Public Sub Close()
bKillMe = True
If mySock.Connected = True Then
  mySock.ShutDown(ShutDown.Both)
End If
End Sub

Private Sub OnRxData(....)
' ....
 
If bKillMe = True Then
  If mySock.Connected = True Then ' kann weggelassen werden??? weil in Close?
    mySock.ShutDown(ShutDown.Both)
  End If
 
  mySock.Close
  mySock = Nothing
  MsgBox("Socket geschlossen...")
  RaiseEvent ClientDisconnect()
  Exit Sub
End If
 
' ...
End Sub