im ctl As vbalListViewCtl
   If pbVerify(ctl) Then
      ctl.fSubItemIconIndex(m_lIndex, m_lSubItemIndex) = lIconIndex
   End If
End Property
Public Property Get ShowInTile() As Boolean
Attribute ShowInTile.VB_Description = "Gets/sets whether to show this sub item
 in Tile View or not."
Dim ctl As vbalListViewCtl
   If pbVerify(ctl) Then
      ShowInTile = ctl.fSubItemShowInTile(m_lIndex, m_lSubItemIndex)
   End If
End Property
Public Property Let ShowInTile(ByVal bState As Boolean)
Dim ctl As vbalListViewC