Option Explicit On

Option Strict On

 

Imports System.Net.Sockets

Public Class Form1

    Inherits System.Windows.Forms.Form

 

#Region " Windows Form Designer generated code "

   

 

    Private Sub Button1_Click(ByVal sender As System.Object, _

        ByVal e As System.EventArgs) Handles Button1.Click

 

        Dim x As Long

        Dim Diff As Long

        Dim Host As String = "time-A.timefreq.bldrdoc.gov"

        Dim TCP As TcpClient

 

        Label1.Text = "Current time: " & CStr(System.DateTime.UtcNow) & vbCrLf

 

        TCP = New TcpClient

        TCP.Connect(Host, 37)

 

        Dim stream As NetworkStream = TCP.GetStream

        Dim b(3) As Byte

        stream.Read(b, 0, 4)

        stream.Close()

 

        x = CLng(b(0) * 256 ^ 3 + b(1) * 256 ^ 2 _

            + b(2) * 256 ^ 1 + b(3) * 256 ^ 0) 'time in seconds since 1/1/1900

 

        Debug.WriteLine(Host & " " & CStr(x))

 

        Dim ts As TimeSpan = System.TimeSpan.FromSeconds(x)

        Diff = DateDiff(DateInterval.Second, System.DateTime.UtcNow, #1/1/1900#.Add(ts))

        Label1.Text = Label1.Text & Host & " " & CStr(#1/1/1900#.Add(ts))

 

 

        Microsoft.VisualBasic.DateAndTime.TimeOfDay = _

            Microsoft.VisualBasic.DateAndTime.TimeOfDay.AddSeconds(Diff)

 

    End Sub

End Class