e whether the memory belongs to IMalloc:
      ' If isMalloc.DidAlloc(byval lPtr) then
      isMalloc.Free ByVal lPtr
   End If
   ' Remove the item from the list:
   m_lstThis.RemoveItem lItemIndex
   
End Sub
Public Sub Clear()
' Use this method rather than the ListBox's native Clear method.
Dim l As Long
Dim lPtr As Long
      
   ' Loop through all the item data and free the memory
   ' allocated:
   For l = m_lstThis.ListCount - 1 To 0 Step -1
      lPtr = m_lstThis.ItemData(l)
      If Not (lPtr = 0) 