Как проверить подключение к Интернет

    Public Function qwe(ByVal URL As String) As Boolean
        Dim Request As HttpWebRequest = HttpWebRequest.Create(New Uri(URL))
        Dim Response As HttpWebResponse
        Try
            'Request.Proxy = New WebProxy(proxy)
            Request.UserAgent = "Mozila/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; MyIE2;"
            Request.Accept = "*/*"
            Response = Request.GetResponse()
            Return True
        Catch
            Return False
            End Try
    End Function

Imports System.Net
Public Class Form1
    Dim Th As System.Threading.Thread
    Public Function qwe() As Boolean
        Dim URL As String = "https://www.google.com"
        Dim Request As HttpWebRequest = HttpWebRequest.Create(New Uri(URL))
        Dim Response As HttpWebResponse
 
        Try
            'Request.Proxy = New WebProxy(proxy)
            Request.UserAgent = "Mozila/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; MyIE2;"
            Request.Accept = "*/*"
            Response = Request.GetResponse()
            Return True
        Catch
            Return False
        End Try
    End Function
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Th = New System.Threading.Thread(AddressOf qwe)
        Th.Start()
        If qwe() = False Then
 
            MsgBox("Сети нет")
        Else
            MsgBox("Сеть есть")
        End If
    End Sub
 
End Class

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            If My.Computer.Network.Ping("www.google.com", 1000) = True Then
                MsgBox("Есть инет!")
            Else
                MsgBox("Нет инета!")
            End If
        Catch
            MsgBox("Нет сети!")
        End Try
    End Sub