Imports System.Net
Imports System.Net.Sockets
 
Private Shared client As New Socket(AddressFamily.InterNetwork, _
  SocketType.Stream, ProtocolType.Tcp)
 
 
'jetzt die funktion wie folgt: ---->  
Public Function Connected() As Boolean
        Try
            Return client.Connected
        Catch
            RaiseEvent onError(Err.Description)
            Exit Function
        End Try
    End Function