Public Type SafeArray1D
  cDims       As Integer
  fFeatures   As Integer
  cbElements  As Long
  cLocks      As Long
  pvData      As Long
  cElements   As Long
  lLBound     As Long
End Type

Public Const FADF_AUTO As Long = &H1        '// Array is allocated on the stack.
Public Const FADF_FIXEDSIZE As Long = &H10  '// Array may not be resized or reallocated.

' ==============================================================================
' "RtlMoveMemory" and popular synonyms
Public Declare Sub RtlMoveMemory Lib "kernel32" ( _
    dst As Any, _
    src As Any, _
    ByVal nBytes As Long)
Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" ( _
    dst As Any, _
    src As Any, _
    ByVal nBytes As Long)
' (re-)typed aliases
Public Declare Sub CopyMemLng Lib "kernel32.dll" Alias "RtlMoveMemory" ( _
    ByVal dst As Long, _
    ByVal src As Long, _
    ByVal nBytes As Long)
Public Declare Sub PokeInt Lib "kernel32" Alias "RtlMoveMemory" ( _
    ByVal Addr As Long, _
    Value As Long, _
    Optional ByVal nBytes As Long = 2)
Public Declare Sub PokeLng Lib "kernel32" Alias "RtlMoveMemory" ( _
    ByVal Addr As Long, _
    Value As Long, _
    Optional ByVal nBytes As Long = 4)

' ==============================================================================
' "RtlZeroMemory"
Public Declare Sub RtlZeroMemory Lib "kernel32" ( _
    dst As Any, _
    ByVal nBytes As Long)

' ==============================================================================
' "RtlFillMemory"
Public Declare Sub RtlFillMemory Lib "kernel32" ( _
    dst As Any, _
    ByVal nBytes As Long, _
    ByVal bFill As Byte)

' ==============================================================================
' "VarPtr" and popular synonyms
#If VB5 = 1 Then
' note that msvbvm50.dll calls are a bit faster
Public Declare Function ArrPtr Lib "msvbvm50.dll" Alias "VarPtr" ( _
    Ptr() As Any) As Long     '<-- VB5
Public Declare Function VarPtrArray Lib "msvbvm50.dll" Alias "VarPtr" ( _
    Ptr() As Any) As Long     '<-- VB5
#Else
Public Declare Function ArrPtr Lib "msvbvm60.dll" Alias "VarPtr" ( _
    Ptr() As Any) As Long     '<-- VB6
Public Declare Function VarPtrArray Lib "msvbvm60.dll" Alias "VarPtr" ( _
    Ptr() As Any) As Long     '<-- VB6
#End If

' ==============================================================================
' "SysAllocStringByteLen"
Public Declare Function SysAllocStringByteLen Lib "oleaut32" ( _
    ByVal olestr As Long, _
    ByVal BLen As Long) As Long

  

BStrAPI by G.Beckmann
  BStrAPI - Guido's VB-Speed API-Interface
  Bstrapi.tlb, 3.840 bytes, 26.03.01 20:23:12

UPDATE 13-Oct-2002
FastString by Paul
  TypeLibrary by Wpsjr1@syix.com
  string.tlb, 6.232 bytes, 13.10.2002 17:03:10

JoinDecl by Matt Curland
  JoinDecl
  JoinDecl.tlb, 3.124 bytes, 04.10.00 11:29:50

StringHelpers by Egbert Nierop
  Helpers for the split function tlb - Egbert Nierop
  Split03.tlb, 7.008 bytes, 16.04.2001 16:30:48

VBVM6Lib by Michel Rutten
  Visual Basic 6 Virtual Machine Type Library 1.0 by Michel Rutten - 
  Declarations and aliases for (undocumented) functions in the VB6 runtime library.
  VBVM6Lib.tlb, 18.952 bytes, 19.09.2002 16:08:38

modSafeArray by Paul
  wrapping tough string array hacks
  modSafeArray_Paul.zip, 1.147 bytes, 20.10.01 11:05:12