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

SendMessage hwndListBox, WM_SETREDRAW, 0, 0

SendMessage hwndListBox, WM_SETREDRAW, 1, 0