B_Description = "Gets/sets the Help Text which will be
 shown when the user hovers over the item within the bar."
Dim ctl As vbalListBar
   If pbVerify(ctl) Then
      HelpText = ctl.fItemHelpText(m_lBarPosition, m_lItemPosition)
   End If
End Property
Public Property Let HelpText(ByVal sHelpText As String)
Dim ctl As vbalListBar
   If pbVerify(ctl) Then
      ctl.fItemHelpText(m_lBarPosition, m_lItemPosition) = sHelpText
   End If
End Property
Public Property Get Caption() As String
Attribute Caption.VB_De