Public Class Form1
    Private imglist As New ImageList With {.ImageSize = New Size(128, 128)}
    Private WithEvents LV As New ListView With {.Dock = DockStyle.Fill, .View = _
      View.LargeIcon, .LargeImageList = imglist, .Parent = Me}
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Me.Height = 600
        imglist.Images.Add("Error", SystemIcons.Error)
        imglist.Images.Add("Warning", SystemIcons.Warning)
        imglist.Images.Add("Information", SystemIcons.Information)
        For i As Int32 = 0 To 2
            Dim item As New ListViewItem(imglist.Images.Keys(i), i)
            LV.Items.Add(item)
        Next
    End Sub
End Class