typedef struct _LVITEM { 
    UINT mask; 
    int iItem; 
    int iSubItem; 
    UINT state; 
    UINT stateMask; 
    LPTSTR pszText; 
    int cchTextMax; 
    int iImage; 
    LPARAM lParam;
#if (_WIN32_IE >= 0x0300)
    int iIndent;
#endif
#if (_WIN32_WINNT >= 0x501)
    int iGroupId;
    UINT cColumns; // tile view columns
    PUINT puColumns;
#endif
#if (_WIN32_WINNT >= 0x0600)
    int* piColFmt;
    int iGroup;
#endif
} LVITEM, *LPLVITEM;

<StructLayout(LayoutKind.Sequential, Pack:=1)> _
    Private Structure LVITEM 'Für Icon in ListView
        Dim mask As Int32
        Dim iItem As Int32
        Dim iSubItem As Int32
        Dim state As Int32
        Dim stateMask As Int32
        Dim pszText As String
        Dim cchTextMax As Int32
        Dim iImage As Int32
        Dim lParam As IntPtr
    End Structure
    Private Function LV_ItemHasIcon(ByVal iRow As Integer, ByVal iCol As _
      Integer) As Boolean
        'Funktion prüft, ob ein Icon in einer beliebige Spalte eines ListView's _
        ist
        Dim tLVI As New LVITEM
 
        If iCol < 0 Then Return False
        If iCol = 0 Then
            'MainItem
            Return Not IsNothing(Me.SmallImageList)
        End If
 
        Try
            With tLVI ' setzen der zu ermittelnden Infos
                .mask = LVIF_IMAGE
                .iItem = iRow
                .iSubItem = iCol
            End With
 
            If SendMessage(Me.Handle, LVM_GETITEMA, 0, tLVI) <> 0 Then
                '?????????????????????????????????
                Return tLVI.iImage > -1 '(tLVI.iImage > -1) 'tLVI.iImage _
                  = 1 '(tLVI.iImage > -1)
            Else
                Return False
            End If
        Catch
            Return False
        End Try
    End Function