ublic Property Let IconIndex(ByVal lIconIndex As Long)
Dim ctl As vbalListBar
   If pbVerify(ctl) Then
      ctl.fItemIconIndex(m_lBarPosition, m_lItemPosition) = lIconIndex
   End If
End Property
Public Sub BeginEdit()
Attribute BeginEdit.VB_Description = "Initiates in-place editing of the item
 within the bar."
Dim ctl As vbalListBar
   If pbVerify(ctl) Then
      ctl.fBeginEdit m_lBarPosition, m_lItemPosition
   End If
End Sub
Public Property Get Left() As Long
Attribute Left.VB_Description = "Gets the L