Err 3, "cSubItem"
            End If
         Else
            gErr 3, "cSubItem"
         End If
      Else
         gErr 1, "cSubItem"
      End If
   Else
      gErr 1, "cSubItem"
   End If
End Function

Public Property Get Caption() As String
Attribute Caption.VB_Description = "Gets/sets the text of this subitem."
Dim ctl As vbalListViewCtl
   If pbVerify(ctl) Then
      Caption = ctl.fSubItemCaption(m_lIndex, m_lSubItemIndex)
   End If
End Property
Public Property Let Caption(ByVal sText As String)
Dim