Public Class lv_icon
 
    Inherits System.Windows.Forms.Form
 
    Private Declare Function SendMessageLong Lib "user32" Alias "SendMessageA" ( _
      ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, _
      ByVal lParam As Integer) As Integer
    Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" ( _
    ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, _
    ByRef lParam As LVITEM) As Integer
 
    Private Structure LVITEM
        Dim mask As Integer
        Dim iItem As Integer
        Dim iSubItem As Integer
        Dim state As Integer
        Dim stateMask As Integer
        Dim pszText As String
        Dim cchTextMax As Integer
        Dim iImage As Integer
        Dim lParam As Integer
        Dim iIndent As Integer
    End Structure
 
    Const LVM_FIRST As Integer = &H1000
    Const LVM_GETEXTENDEDLISTVIEWSTYLE As Integer = (LVM_FIRST + 55)
    Const LVM_SETEXTENDEDLISTVIEWSTYLE As Integer = (LVM_FIRST + 54)
    Const LVS_EX_SUBITEMIMAGES As Integer = &H2
    Const LVIF_IMAGE As Integer = &H2
    Const LVM_SETITEM As Integer = (LVM_FIRST + 6)
 
 
 
 
    Public Sub SetLVSubImages(ByRef LV As ListView, ByVal Index As Object, _
      ByVal Column As Integer, ByVal Image As Integer, ByVal SubImagesOn As _
      Boolean)
 
        Dim lvStyle As Integer
        Dim LV_Item As LVITEM
 
        lvStyle = SendMessageLong(LV.Handle.ToInt32, _
          LVM_GETEXTENDEDLISTVIEWSTYLE, 0, 0)
 
        If SubImagesOn Then
            lvStyle = lvStyle Or LVS_EX_SUBITEMIMAGES
        Else
            lvStyle = lvStyle And Not LVS_EX_SUBITEMIMAGES
        End If
 
        Call SendMessageLong(LV.Handle.ToInt32, LVM_SETEXTENDEDLISTVIEWSTYLE, _
          0, lvStyle)
 
        If SubImagesOn Then
            With LV_Item
                .mask = LVIF_IMAGE
                .iSubItem = Column
                .iItem = Index - 1
                .iImage = Image
            End With
            Call SendMessage(LV.Handle.ToInt32, LVM_SETITEM, Index - 1, LV_Item)
        End If
 
        LV.Refresh()
    End Sub
End Class