host = "logon.eternal-knights.de"
        port = "8078"
        ' Next part creates a socket to try and connect on with the given user 
        ' information.
 
        Dim hostadd As System.Net.IPAddress = System.Net.Dns.GetHostEntry( _
          host).AddressList(0)
        Dim EPhost As New System.Net.IPEndPoint(hostadd, port)
        Dim s As New System.Net.Sockets.Socket( _
          System.Net.Sockets.AddressFamily.InterNetwork, _
        System.Net.Sockets.SocketType.Stream, _
        System.Net.Sockets.ProtocolType.Tcp)
        Try
            s.Connect(EPhost)
        Catch
        End Try
        If Not s.Connected Then
            Label1.Text = "Logon Server offline"
        Else
            Label1.Text = "Logon Server online"
        End If