arkada interval ayarı 1000 ms'de çalışan bir timer çalışsın,

If My.Computer.Network.IsAvailable Then
//internet bağlantısı varken gerçekleşecek olaylar
Else
//internet bağlantısı yokken gerçekleşecek olaylar
End()
End If


If My.Computer.Network.Ping("8.8.8.8") Then
//google'a ping başarılı
Else
//google'a ping başarısız, yanıt gelmedi
End()
End If