Saber si mi PC está conectado a internet

using System.Runtime.InteropServices; 
 
' declaración de la API
Private Declare Function InternetGetConnectedState Lib "wininet.dll" ( _ 
   ByRef lpdwFlags As Integer, _ 
   ByVal dwReserved As Integer) As Boolean
 
 
' Uso del API
Public Function IsConnected() as Boolean
    Dim Desc As Integer
    return InternetGetConnectedState(Desc, 0)
End Function