Dim path = "d:\IMG\famfamfam_silk_icons\"
        Dim il As New ImageList
        Dim lvi As ListViewItem
        ListView1.SmallImageList = il
        ListView1.View = View.SmallIcon
        ListView1.ShowItemToolTips = True
        For Each f As String In IO.Directory.GetFiles(path, "*.png")
            il.Images.Add(New Bitmap(f))
            lvi = New ListViewItem
            lvi.ImageIndex = il.Images.Count
            lvi.ToolTipText = IO.Path.GetFileNameWithoutExtension(f)
            ListView1.Items.Add(lvi)
        Next