Add a button to the form, double click the button and add this code:
Dim pinger As New System.Net.NetworkInformation.Ping
Dim result As System.Net.NetworkInformation.PingReply = pinger.Send(System.Net.IPAddress.Parse("192.168.0.101"))
MsgBox(result.Status.ToString)