nced, free source code:
' http://vbAccelerator.com/
' ==========================================================

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" ( _
    lpvDest As Any, lpvSource As Any, ByVal cbCopy As Long)

' The ListBox we are adding data for:
Private m_lstThis As ListBox

' Type to allow copying of multiple data items at the same time:
Private Type tListBoxStorage
   ' The ItemData to store:
   lItemData As Long
   ' The Extra ItemData to store:
   lItemExtraData As