Private Function NetworkIsAvailable() As Boolean 
		Dim res As Boolean = false
		Dim ipHostEntryInfo As Net.IPHostEntry = nothing
		Try
			ipHostEntryInfo = System.Net.Dns.GetHostByName("time.nist.gov")
			res = (Not ipHostEntryInfo Is Nothing AndAlso _
  ipHostEntryInfo.AddressList.Length > 0)
		Catch ex As Exception
			debug.WriteLine (ex.ToString())
			res = false
		End Try
		return res
	End Function