Visual Basic - Supervisión de Internet

Deseo saber como se hace para monitorear si estoy conectado a Internet y de ser posible si se puede negar el acceso por medio de un programa.

cheka esto...
private Declare Function RasEnumConnections Lib "RasApi32.DLL" Alias "RasEnumConnectionsA" (lprasconn As Any, lpcb As Long, lpcConnections As Long) As Long

private Function VERConexion() As Integer
Dim lprasconn(0 To 1) As Long
Dim retorno As Long
Dim buffer As Long
Dim lpcConecctions As Long
lprasconn(0) = 32
buffer = 0 '

retorno = RasEnumConnections(lprasconn(0), buffer, lpcConnections)
VERConexion = lpcConnections
End Function

Private Sub cmdInternet_Click()
If VERConexion() Then
MsgBox "Conectado"
Else
MsgBox "No conectado"
End If
End Sub
salu2