Someone

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If Not booProcessing Then

            Label1.Text = "Contacting time server..."
            Label2.Text = ""

            Dim t As New Threading.Thread(AddressOf Me.SetTime)
            t.Start()

        End If

    End Sub

    Private Sub SetTime()

        If GetTime() Then

            TimeOfDay = dteTime
            Today = dteDate

            Label1.Text = "System clock updated."
            Label2.Text = "Date: " & Today & " || " & "Time: " & TimeOfDay

        End If

    End Sub