rPosition, m_lItemID)
            If Not (m_lItemPosition = 0) Then
               pbVerify = True
            Else
               gErr 3, "cListBarItem" ' Item does not exist
            End If
         Else
            gErr 2, "cListBarItem" ' Bar does not exist
         End If
      Else
         gErr 1, "cListBarItem" ' object has been unloaded
      End If
   Else
      gErr 1, "cListBarItem" ' object has been unloaded
   End If
End Function
Public Property Get HelpText() As String
Attribute HelpText.V