th the item."
Dim ctl As vbalListBar
   If pbVerify(ctl) Then
      Key = ctl.fItemKey(m_lBarPosition, m_lItemPosition)
   End If
End Property
Public Property Let Key(ByVal sKey As String)
Dim ctl As vbalListBar
   If pbVerify(ctl) Then
      ctl.fItemKey(m_lBarPosition, m_lItemPosition) = sKey
   End If
End Property
Public Property Get Tag() As String
Attribute Tag.VB_Description = "Gets/sets a string value which can be used to
 associate data with the item."
Dim ctl As vbalListBar
   If pbVerify(ctl) Then