新建From1（窗体），新建新建Command1（按钮CommandButton），Label1（Label），代码：

Private Sub Command1_Click()
    List1.Visible = False '不可见可以加快速度
    
    With List1
        .Clear
        For i = 1 To 10000
            .AddItem i
            DoEvents
        Next
    End With
    
    List1.Visible = True '完成后可见
End Sub