VB这题要怎么实现添加过去的东西都在list1的第一个帮帮忙谢谢，最好有步骤，好的直接采纳！不废话！

Private Sub Command1_Click()

    If TextBox1.Text = "" Then

        MsgBox "没有内容，不予添加"

    Else

        ListBox1.AddItem TextBox1.Text

        TextBox1.Text = ""

    End If

End Sub

Private Sub Command2_Click()

Dim i As Integer

Dim res As Boolean

    res = False

    

    For i = ListBox1.ListCount - 1 To 0 Step -1

        If ListBox1.Selected(i) Then

            ListBox1.RemoveItem i

            res = True

        End If

    Next

    

    If res = False Then

        MsgBox "请选择输出项目"

    End If

    

End Sub

Private Sub UserForm_Initialize()

    ListBox1.AddItem "Word"

    ListBox1.AddItem "Excel"

    ListBox1.AddItem "PowerPoint"

    ListBox1.AddItem "Outlook"

End Sub

添加到哪里？

例如list中加入数据 List1.AddItem "XXXXX", 0 这样就能添加在第一行

加标号的话，只要再定义一个变量，从1开始 每天加一次，就加1

---