Private Sub checker_CheckCompleted(ByVal sender As Object, ByVal results As _
  PingCheckResult())
    For Each result As PingCheckResult In results
        ListView1.Items.Add(New ListViewItem({result.Adress.ToString, _
          result.Delay.ToString, System.Net.Dns.GetHostEntry( _
          result.Adress).HostName}))
    Next
End Sub