
      Tag = ctl.fItemTag(m_lBarPosition, m_lItemPosition)
   End If
End Property
Public Property Let Tag(ByVal sTag As String)
Dim ctl As vbalListBar
   If pbVerify(ctl) Then
      ctl.fItemTag(m_lBarPosition, m_lItemPosition) = sTag
   End If
End Property
Public Property Get itemData() As Long
Attribute itemData.VB_Description = "Gets/sets a long value associated with the
 item."
Dim ctl As vbalListBar
   If pbVerify(ctl) Then
      itemData = ctl.fItemItemData(m_lBarPosition, m_lItemPosition)
   End If
E