To Check Network is Available or Not

Imports System.Net

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If My.Computer.Network.IsAvailable Then

            MsgBox("Network detected!")

        Else

            MsgBox("Network connection is not found!")

        End If

    End Sub