Check_Connection

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        AddHandler My.Application.NetworkAvailabilityChanged, AddressOf ConnectionChanged
        If My.Computer.Network.IsAvailable Then
            Label1.Text = "Connected"
        Else
            Label1.Text = "Disconnected"
        End If
    End Sub

    Private Sub ConnectionChanged(ByVal sender As Object, ByVal e As Microsoft.VisualBasic.Devices.NetworkAvailableEventArgs)
        If e.IsNetworkAvailable Then
            Label1.Text = "Connected"
        Else
            Label1.Text = "Disconnected"
        End If
    End Sub
End Class