Dim entry(1), line(3) As String
        Dim sr As StreamReader = New StreamReader(path)
        Dim pingres(3) As String
 
        errstring = ""
 
        Try
            Do While sr.EndOfStream = False
                entry = sr.ReadLine.Trim.Split(Chr(9))
                Dim Ping As Ping = New Ping
                Dim PingReply As PingReply
                PingReply = Ping.Send(entry(0), 2000)
                tssActivity.Text = "Pinging: " & entry(1) & ": " & entry(0)
                tssActivity.Invalidate()
                line(0) = entry(1) & ": "
                line(1) = entry(0)
                If PingReply.Status = IPStatus.Success Then
                    line(2) = PingReply.RoundtripTime.ToString
                Else
                    line(2) = PingReply.Status.ToString
                    errstring += line(0).PadRight(20) & line(1).PadRight(20) & "Ping: " & line(2).PadRight(30) & Chr(13) & Chr(10)
                End If
                line(3) = line(0).PadRight(20) & line(1).PadRight(20) & "Ping: " & line(2).PadRight(30) & Chr(13) & Chr(10)
                txtResult.Text += line(3)
                Ping.Dispose()
                txtResult.Invalidate()
                Me.Refresh()
            Loop
            If Not errstring = "" Then
                PrntDoc.Print()
            End If
        Catch ex As Exception
            txtResult.Text += ex.Message & Chr(13) & Chr(10)
        End Try
        sr.Close()