Me.ListView2.Columns.Clear() Me.ListView2.Items.Clear() Me.ListView2.Columns.Add("bnvcnA") Me.ListView2.Columns.Add("bnvcnB") Me.ListView2.Columns.Add("bnvcnC") Dim t1 As Date = System.DateTime.Now Dim lis(3000) As ListViewItem For i As Integer = 0 To 3000 lis(i) = New ListViewItem("A" & i.ToString(),i.ToString()) lis(i).SubItems.Add("FDSA") lis(i).SubItems.Add("FDSA") lis(i).Tag = "FDA" Next Me.ListView2.Items.AddRange(lis) Dim tt As TimeSpan = DateTime.Now - t1 Me.Label1.Text = tt.TotalSeconds.ToString()