Función para verificar el estado de la red Visual Basic .Net

La siguiente función realiza las pruebas básicas para saber si nuestro equipo mantiene una conexión a Internet.

Referencia

Imports System.Net

Código

Public Function EstadoRed() As Boolean

        Try

            If My.Computer.Network.IsAvailable() Then
                If My.Computer.Network.Ping("www.google.cl", 1000) Then 'Asignamos la pagina a consultar ejemplo www.google.cl y el tiempo de espera máximo
                    EstadoRed = True
                Else
                    EstadoRed = False
                End If
            Else
                EstadoRed = False
            End If

        Catch ex As Exception
            EstadoRed = False
        End Try

    End Function

Esperamos sea de su utilidad,

Saludos