Ptr(lPtr)
         m_lIndex = ctlThis.fVerifylParam(m_lPtr)
         If m_lIndex &gt; 0 Then
            ' Check this is still the right item:
            Dim cI As pcListItem
            Set cI = ObjectFromPtr(m_lPtr)
            If m_lId = cI.ID Then
               If (m_lSubItemIndex &gt; 0) And (m_lSubItemIndex &lt;
                ctlThis.fColumnCount) Then
                  pbVerify = True
               Else
                  gErr 10, "cSubItem"
               End If
            Else
               g