Dim my_imagelist As New ImageList
        Dim my_size As Size
 
        my_size.Height = 150
        my_size.Width = 150
 
        my_imagelist.ImageSize = my_size
        my_imagelist.Images(0).FromFile("c:\bild1.jpg")
 
        ListView1.Items.Clear()
        ListView1.View = View.LargeIcon
        ListView1.LargeImageList = my_imagelist
 
        Dim liste As New ListViewItem
 
        liste.ImageIndex = 0
        liste.Text = "Bild 1"
 
        ListView1.Items.Add(liste)