Tool to help 西山 team of エマール group calculate ブロック of 小田急 from 文化シャッター partner.
''' <summary>
''' Check internet connection.
''' </summary>
''' <returns>Connection state.</returns>
Private Function IsNetAvail()
Dim objResp As WebResponse
Try
objResp = WebRequest.Create(New Uri(My.Resources.link_base)).GetResponse
objResp.Close()
objResp = Nothing
Return True
Catch ex As Exception
Return False
End Try
End Function