Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ListView1.Columns.Add("column id", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("date", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("milliseconds", 100, HorizontalAlignment.Left)
ListView2.Columns.Add("column id", 100, HorizontalAlignment.Left)
ListView2.Columns.Add("date", 100, HorizontalAlignment.Left)
ListView2.Columns.Add("milliseconds", 1200, HorizontalAlignment.Left)
Dim i As Int16
For i = 0 To 20
Dim str(3) As String
str(0) = "Item " & i
str(1) = Now.Date.ToString
str(2) = Now.Date.Millisecond.ToString
Dim itm As New ListViewItem(str)
ListView1.Items.Add(itm)
Next
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim itm As ListViewItem
For Each itm In ListView1.SelectedItems
Dim newItm As ListViewItem = itm.Clone
ListView2.Items.Add(newItm)
Next
End Sub