Как добавить в список 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

Option Explicit
Private Declare Function CreateWindowEx Lib "user32" Alias "CreateWindowExW" (ByVal dwExStyle As Long, ByVal lpClassName As Long, ByVal lpWindowName As Long, ByVal dwStyle As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hWndParent As Long, ByVal hMenu As Long, ByVal hInstance As Long, lpParam As Long) 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 Declare Function GetTickCount Lib "kernel32" () As Long
 
Private Const WS_CHILD          As Long = &H40000000
Private Const WS_VISIBLE        As Long = &H10000000
Private Const ES_AUTOVSCROLL    As Long = &H40&
Private Const WS_EX_CLIENTEDGE  As Long = &H200&
Private Const WS_VSCROLL = &H200000
Private Const WM_SETREDRAW = &HB
Private Const LB_ADDSTRING = &H180
 
Dim hwndListBox As Long
 
Private Sub Command1_Click()
    List1.AddItem "Строка " & List1.ListCount + 1
''    Dim i As Long
''    Dim str As String
''
''    SendMessage hwndListBox, WM_SETREDRAW, 0, 0
''
''    For i = 0 To 9999
''        str = i + 1
''        SendMessage hwndListBox, LB_ADDSTRING, 0, StrPtr(str)
''    Next
''
''    SendMessage hwndListBox, WM_SETREDRAW, 1, 0
End Sub
 
Private Sub Command2_Click()
     Dim itmCnt&
     Dim Tick As Long
     
     Tick = GetTickCount
     itmCnt = CLng(Text1.Text)
     
     If itmCnt Then AddItems itmCnt
     
     Print GetTickCount - Tick
End Sub
 
'Private Sub Form_Load()
'        Dim i&
'        List1.AddItem RandomString(10)
'        For i = 1 To 299
'            List1.AddItem i
'        Next
'    hwndListBox = CreateWindowEx(WS_EX_CLIENTEDGE, StrPtr("LISTBOX"), ByVal 0&, WS_CHILD Or WS_VISIBLE Or WS_VSCROLL Or ES_AUTOVSCROLL, _
'    16, 16, 233, 420, Me.hwnd, 0&, 0&, ByVal 0&)
'End Sub
 
Private Sub List1_Click()
    If Not blAdding Then
    With List1
        MsgBox "Вы выбрали строку № " & .ListIndex + 1 & vbCr & .List(.ListIndex)
    End With
    Else: blAdding = False
    End If
End Sub

Type ListBoxHeader 'без манифеста
    la1(7) As Long
    itmCnt As Long
    maxCnt As Long
    pMrk As Long
    unuse11 As Long
    pBuf As Long
    unuse13 As Long
    szBufMax As Long
    szBuf As Long
    'la2(37) As Long
End Typ
Type ListBoxHeader 'с манифестом
    la1(7) As Long
    itmCnt As Long
    maxCnt As Long
    pMrk As Long
    pBuf As Long
    szBufMax As Long
    szBuf As Long
'    la2(32) As Long
End Type

Option Explicit
 
Private Sub Command1_Click()
    Dim ind&
    ind = List1.ListCount
    If ind < 0 Then ind = &H8000& * 2 + ind
    List1.AddItem "Строка " & ind + 1 'List1.ListCount + 1
End Sub
 
Private Sub Command2_Click()
     Dim itmCnt&
     itmCnt = CLng(Text1.Text)
     If itmCnt Then AddItems itmCnt
End Sub
 
Private Sub List1_Click()
    Dim ind&
    
    With List1
        ind = .ListIndex
        If ind < 0 Then ind = &H8000& * 2 + ind
        MsgBox "Вы выбрали строку № " & ind + 1 & vbCr & .List(.ListIndex)
    End With
End Sub