[VB.NET] Verificar conexión a internet

    Function Verificar_conexion_a_internet()

        'Nombre: Verificar conexión a internet
        'Autor: Bloc
        'Fecha Publicada: 13/08/2013

        If My.Computer.Network.IsAvailable = True Then
            Try
                If My.Computer.Network.Ping("www.google.com", 10) Then
                    MsgBox("Si hay conexión a internet", MsgBoxStyle.Information)
                End If
            Catch ex As Exception
                MsgBox("No hay conexión a internet", MsgBoxStyle.Critical)
            End Try
        End If
    End Function

If My.Computer.Network.Ping("www.google.com", 10) Then 

If My.Computer.Network.Ping("8.8.8.8", 10) Then 

private void Test_Connection()
{
    System.Net.NetworkInformation.Ping ping = new System.Net.NetworkInformation.Ping();
    System.Net.NetworkInformation.PingReply reply = ping.Send("1.1.1.1");
    MessageBox.Show(reply.Status.ToString()!="Success"?
                    "No se tiene conexion a Internet":
                    "Se tiene conexion a Internet");            
        }