How to change icon size in listview runtime?

[yxq]

Hi,
I write the code to change icon size in listview, but so as the Trackbar
value changed, the icons will disappear, but the text is eyeable.

**********************************************
'Trackbar1 max value is 6
'Trackbar1 min value is 2

Private Sub Trackbar1_ValueChanged(ByVal sender As Object, ByVal e As
System.EventArgs) Handles Trackbar1.ValueChanged
ImageList1.ImageSize = New Size(Trackbar1.Value * 8, Trackbar1.Value
* 8)
ListView1.LargeImageList = ImageList1
ListView1.Items(0).ImageIndex = 0
ListView1.Items(1).ImageIndex = 1
ListView1.Items(2).ImageIndex = 2
Application.DoEvents()
ListView1.Refresh()
End Sub