Stato della connessione ad Internet

[frankin0]

Ragazzi ho un problema ho creato queste righe per verificare lo stato della mia connessione se attivo o meno.

Dim conn As Boolean = My.Computer.Network.IsAvailable
If conn = True Then
   Label1.Text = "La connessione è attiva"
Else
   Label1.Text = "La connessione è assente"
End If

Ma non mi funziona, quando avvio il programma, pur se disattivo la connessione o stacco il cavo mi da sempre "La connessione è attiva", ho provato altri metodi tipo racchiudere direttamente My.Computer.Network.IsAvailable negli If ma nulla..
Ho trovato altri metodi che misurano i ping, ma lo sconsigliano, perché alcuni firewall li bloccano.
Cosa posso fare?