ИнтеллигенцияX

Проверяет действительное подключение локального компьютера к Интернету.

На выходе:

• True - Подключен
• False - Не подключен

Советую еще почитать статью - Определение состояния подключения локального компьютера, а также для запуска или завершения подключения к Интернету с помощью Visaul Basic.NET

Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef lpdwFlags As Int32, ByVal dwReserved As Int32) As Boolean
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    MsgBox(InternetGetConnectedState(0, 0&))
End Sub