
Module CheckNetwork
Sub main()
If My.Computer.Network.IsAvailable = True Then
System.Console.WriteLine("Computer is connected.")
Else
System.Console.WriteLine("Computer is not connected.")
End If
System.Console.ReadLine()
End Sub
End Module