scription = "Gets/sets the caption of the item."
Attribute Caption.VB_UserMemId = 0
Dim ctl As vbalListBar
   If pbVerify(ctl) Then
      Caption = ctl.fItemCaption(m_lBarPosition, m_lItemPosition)
   End If
End Property
Public Property Let Caption(ByVal sCaption As String)
Dim ctl As vbalListBar
   If pbVerify(ctl) Then
      ctl.fItemCaption(m_lBarPosition, m_lItemPosition) = sCaption
   End If
End Property
Public Property Get Key() As String
Attribute Key.VB_Description = "Gets/sets the Key associated wi