Then
         isMalloc.Free ByVal lPtr
      End If
   Next l
   ' Ensure memory is compacted:
   isMalloc.HeapMinimize
   
   ' Clear the list:
   m_lstThis.Clear
   
End Sub

Public Property Let ItemData(ByVal lItemIndex As Long, ByRef cData As
 cListBoxItem)
Dim lPtr As Long
Dim tLBS As tListBoxStorage
Dim sString As String

   ' Get the current item data:
   lPtr = m_lstThis.ItemData(lItemIndex)
   ' Prepare space for the string we want to stor:
   sString = cData.ItemString
   tLBS.lStringSize = LenB(s