 Long
   ' The size of the string we are storing:
   lStringSize As Long
   ' string follows...
End Type

Public Sub Initialise(lstThis As ListBox)
   ' Store a reference to the ListBox:
   Set m_lstThis = lstThis
End Sub

Public Sub RemoveItem(ByVal lItemIndex As Long)
' Use this method rather than the ListBox's native RemoveItem method.
Dim lPtr As Long

   ' Check if memory has been assigned against this
   ' item:
   lPtr = m_lstThis.ItemData(lItemIndex)
   If Not (lPtr = 0) Then
      ' Could check her