如何使用编码在VB6.0的组合框中显示1到1000个数字？

我尝试过一种编码，它包含一个循环，在组合框中显示1到1000个数字。我只是一个学习VisualBasic的人。所以我无法通过编码实现这一点。编码如下：

    Private Sub Combo1_change()
    Dim a As Integer
    While (a <= 1000)
    Combo1.AddItem(a, [1]) = a
    a=a+1
    Wend
    End Sub

私有子组合1_change（）
将a变暗为整数
而（aa
Combo1\u Change
事件绝对不是您应该查看的位置。当组合中的文本发生更改时，会触发该事件。请尝试
Form\u Load
事件：

Private Sub Form_Load()
    Dim a As Integer

    For a = 1 To 1000
        Combo1.AddItem a
    Next

End Sub

请注意，包含1000个项目的组合并不是最好的用户体验