Как добавить в список ListBox большое количество строк, чтобы это было быстро по времени?

Option Explicit
Private Declare Function GetTickCount Lib "kernel32" () As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageW" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Const LB_INITSTORAGE = &H1A8
Private Const LB_ADDSTRING = &H180
 
Private Sub Command1_Click()
    Dim i As Integer
    Dim tick As Long
    
    List1.Clear
    tick = GetTickCount
    
    For i = 0 To 10000
        List1.AddItem i
    Next
    Me.Caption = GetTickCount - tick ' 1311 ml
End Sub
 
Private Sub Command2_Click()
    Dim i As Integer
    Dim tick As Long
    
    List1.Clear
    tick = GetTickCount
    
    List1.Visible = False
    
    For i = 0 To 10000
        List1.AddItem i
    Next
    
    List1.Visible = True
    
    Me.Caption = GetTickCount - tick ' 468 ml
End Sub
 
 
Private Sub Command3_Click()
    Dim i As Integer
    Dim tick As Long
    Dim str As String
    Dim hwndList As Long
    
    str = "123"
    hwndList = List1.hwnd
    
    List1.Clear
    tick = GetTickCount
    
    'List1.Visible = False
    
    Debug.Print SendMessage(hwndList, LB_INITSTORAGE, 10001, CLng(LenB(str) * 10001))
    
    For i = 0 To 10000
        SendMessage hwndList, LB_ADDSTRING, 0, StrPtr(str)
    Next
    'List1.Visible = True
    
    Me.Caption = GetTickCount - tick ' 1310 ml
End Sub

Sub Example()
    Dim oList As ListBox, i&
    Dim pBuf&, pHdr&, he As PROCESS_HEAP_ENTRY
    Dim iArr%(), lArr&(), SA As SAFEARRAY1D
    
    Form1.Show 0 'запускаем форму немодально
    Set oList = Form1.List1
    oList.AddItem RandomString(8) 'Добавляем итемы в листбокс
    oList.AddItem RandomString(10)
    oList.AddItem RandomString(6)
    Stop
    
    For i = 0 To 2
        pBuf = 0: pHdr = 0
        oList.ListIndex = i 'устанавливаем "курсор" на следующую строку
'        Ищем в памяти свего процесса строку (pBuf), возвращаемоую методом "Text" объекта "oList" и заголовочный указатель(pHdr), в котором прописан адрес (pBuf) этой строки
        FindObjectDataPtr oList, "Text", pBuf, pHdr, , BSTR
        Debug.Print pBuf, pHdr
    Next
'    Stop
End Sub

    oList.ListIndex = 0 'устанавливаем "курсор" на первую строку
'    Ищем в памяти свего процесса строку (pBuf), возвращаемоую методом "Text" объекта "oList" и заголовочный указатель(pHdr), в котором прописан адрес (pBuf) этой строки
    VBMemHelper.FindObjectDataPtr oList, "Text", pBuf, pHdr, , BSTR
    he = GetAllocInfo(pBuf)
    Debug.Print "Buf: "; pBuf; he.lpData; he.cbData
    Stop
    he = GetAllocInfo(pHdr)
    Debug.Print "Hdr: "; pHdr; he.lpData; he.cbData
    Stop

    he = GetAllocInfo(pHdr) 'получаем информацию о локации заголовка
    'Мапим на заголовочную структуру массив типа Long
    SA.cDims = 1: SA.cbElements = 4
    SA.pvData = he.lpData: SA.Bounds.cCount = he.cbData \ 4
    CopyMemory ByVal ArrPtr(lArr), VarPtr(SA), 4
    
    Stop
    
    CopyMemory ByVal ArrPtr(lArr), 0&, 4

    he = GetAllocInfo(lArr(10))
    SA.pvData = he.lpData: SA.Bounds.cCount = he.cbData \ 4