Public Class frmPingTest
    Inherits System.Windows.Forms.Form
    Private Sub btnPing_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btnPing.Click
        Dim objPingHost As New clsPing()
        Dim lngPingReply As Long
              '* Is there any host in the TextBox?
              If (Trim(Me.txtHost.Text) = "") Then
            Call MsgBox("Please, type a host name or IP.", _
              MsgBoxStyle.Exclamation, Application.ProductName)
            Exit Sub
        End If
              '* Prepares to Ping a Host
              objPingHost.TimeOut = 5000               ' --> 5000 msec  Time Out
        objPingHost.DataSize = 32                ' -->   32 bytes Package Size
        objPingHost.Host = Trim(Me.txtHost.Text) ' --> Host to Ping
        '* Writes in the Log
               Me.txtLog.Text = "Trying to ping " & Trim(Me.txtHost.Text) & "" & _
                 "..."
        '* Ping the Host and get the reply time
                lngPingReply = objPingHost.Ping()
        '* Check for error
                If (lngPingReply = objPingHost.PING_ERROR) Then
            Me.txtLog.Text &= vbCrLf & "Error : " & _
              objPingHost.GetLastError.Description
        Else
            Me.txtLog.Text &= vbCrLf & "Ping Reply " & lngPingReply & " msec."
        End If
    End Sub
    Private Sub txtLog_TextChanged(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles txtLog.TextChanged
    End Sub
End Class