Imports System.IO
Imports System.Net
Imports System.Net.Sockets
Imports System.Text
 
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim tcpc As New TcpClient()
        Dim read(35) As Byte
        Dim Server As String = "time.ien.it"
 
        Try
            Dns.GetHostEntry(Server)
        Catch ex As Exception
            MsgBox(ex.Message)
            Exit Sub
        End Try
 
        tcpc.Connect(Server, 13)
 
        Dim s As Stream
        Try
            s = tcpc.GetStream()
        Catch ex As InvalidOperationException
            MsgBox(ex.Message)
            Exit Sub
        End Try
 
        Dim bytes As Integer = s.Read(read, 0, read.Length)
        Dim Zeit As String = Encoding.ASCII.GetString(read)
 
        MsgBox("Datum und Zeit: " & Zeit)
 
        tcpc.Close()
 
    End Sub
 
End Class