We are going to create an app that will ping a certain IP address. Let’s get started.
UI
Assuming you have already created your project. Add the following components:
- a textbox, named txtIp
- a button, named btnPing, set text to Ping
- a textbox, named txtResult, multiline true
Arrange the components as in the image:

Code behind
Add the following code and compile.
Imports System.Net
Public Class Form1
Private Sub btnping_Click(sender As Object, e As EventArgs) Handles btnping.Click
If txtip.Text.Trim.Length = 0 Then
txtresult.Text &= "Enter IP" & vbNewLine : Exit Sub
End If
If My.Computer.Network.IsAvailable = False Then
txtresult.Text &= "Connect to a network." & vbNewLine : Exit Sub
End If
Try
If My.Computer.Network.Ping(txtip.Text, 1000) Then
Dim hostname As IPHostEntry = Dns.GetHostByName(txtip.Text)
Dim ip As IPAddress() = hostname.AddressList
txtip.Text = ip(0).ToString()
txtresult.Text &= "Reply from " & txtip.Text & vbNewLine
Else
txtresult.Text &= "Request timed out." & vbNewLine
End If
Catch ex As Exception
If ex.InnerException.Message = "No such host is known" Then
txtresult.Text &= "Could not find host " & txtip.Text & vbNewLine
End If
End Try
End Sub
Private Sub txtip_KeyDown(sender As Object, e As KeyEventArgs) Handles txtip.KeyDown
If e.KeyCode = Keys.Enter Then
btnping.PerformClick()
End If
End Sub
End Class
Enter an IP or hostname and it will ping it.