Public Function SetSubImageIcon(ByVal iRow As Integer, ByVal iCol As Integer, _
  ByVal Image As Int32, ByVal SubImagesShow As Boolean) As Boolean
 
        Dim lvStyle As Int32, LV_Item As New LVITEM
 
        If iCol < 1 Then Return False
        Try
            lvStyle = SendMessageLong(Me.Handle, LVM_GETEXTENDEDLISTVIEWSTYLE, _
              0, 0)
 
            If SubImagesShow Then
                lvStyle = lvStyle Or LVS_EX_SUBITEMIMAGES
                Call SendMessageLong(Me.Handle, LVM_SETEXTENDEDLISTVIEWSTYLE, _
                  0, lvStyle)
            Else
                lvStyle = lvStyle And Not LVS_EX_SUBITEMIMAGES
            End if
            If SubImagesShow Then
                With LV_Item
                    .mask = LVIF_IMAGE
                    .iSubItem = iCol
                    .iItem = iRow
                    .iImage = Image
                End With
                Call SendMessage(Me.Handle, LVM_SETITEM, iRow, LV_Item)
            End If
            Return True
        Catch
            Return False
        End Try
    End Function

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist