Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click Dim X = From lv In ListView1.Items.OfType(Of ListViewItem)() _ Let Y = <a href=<%= lv.SubItems(1).Text %>><%= lv.SubItems(0).Text %></a> _ Let Z = Y.ToString() Select Z TextBox1.Lines = X.ToArray() End Sub