Hi
That's strange. I just tried it on mine and it only took 30 msec's.
And I don't think there's any other way...Not that I know of, anyway.
VB Code:
Dim A As Integer = Environment.TickCount
Dim li As ListViewItem
For Each li In ListView1.Items
li.Selected = True
Next
MsgBox(Environment.TickCount - A)
Perhaps it would help if you added a BeginUpdate and an EndUpdate? (Although it didn't do anything for me!)
VB Code:
Dim A As Integer = Environment.TickCount
Dim li As ListViewItem
ListView1.BeginUpdate
For Each li In ListView1.Items
li.Selected = True
Next
ListView1.EndUpdate
MsgBox(Environment.TickCount - A)