' Img är en listimage i en ImageList kontroll som är placerad på din form.
' Column är en kolumnrubrik i din kontroll.

Public Sub ColumnHeaderSetIcon(LView As ListView, _
Column As ColumnHeader, Img As ListImage)
Dim col As LVCOLUMN
Dim ret As Long
col.mask = LVCF_FMT Or LVCF_IMAGE
col.fmt = LVCFMT_LEFT Or LVCFMT_IMAGE Or LVCFMT_COL_HAS_IMAGES
col.iImage = Img.Index - 1
ret = SendMessageColumn(LView.hWnd, LVM_FIRST + 26, Column.Index - 1, col)
End Sub