nd Property
Public Property Let itemData(ByVal lItemData As Long)
Dim ctl As vbalListBar
   If pbVerify(ctl) Then
      ctl.fItemItemData(m_lBarPosition, m_lItemPosition) = lItemData
   End If
End Property
Public Property Get IconIndex() As Long
Attribute IconIndex.VB_Description = "Gets/sets the 0 based index of the icon
 within the ImageList to show for this item."
Dim ctl As vbalListBar
   If pbVerify(ctl) Then
      IconIndex = ctl.fItemIconIndex(m_lBarPosition, m_lItemPosition)
   End If
End Property
P