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
