For Each k As ListViewItem In ListView1.Items Dim SubItem0 As String = k.SubItems(0).Text ' タイトル Dim SubItem1 As String = k.SubItems(1).Text ' URL Next