Slab Superficies
v22.11.24
Ferramenta para ajudar a equipe 西山 do grupo エマール a calcular superfícies de multi スラブ.
''' <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