vate m_lIndex As Long
Private m_lSubItemIndex As Long

Friend Function fInit(ByVal hwnd As Long, ByVal lId As Long, ByVal lPtr As
 Long, ByVal lSubItemIndex As Long)
   m_hWnd = hwnd
   m_lId = lId
   m_lPtr = lPtr
   m_lSubItemIndex = lSubItemIndex
End Function

Private Function pbVerify(ByRef ctlThis As vbalListViewCtl) As Boolean
Dim lPtr As Long
Dim ctl As vbalListViewCtl
   If IsWindow(m_hWnd) Then
      lPtr = GetProp(m_hWnd, gcObjectProp)
      If Not (lPtr = 0) Then
         Set ctlThis = ObjectFrom