怎么取出listbox中的指定一项？

Question

比如我想取出第一项，然后删掉它，怎么取？还有用removelist删掉后，其他项是不是自动往前排？

Answer 1

Option ExplicitPrivate Sub Command1_Click()
        Command1.Caption = List1.List(0)
        List1.RemoveItem 0
        
End SubPrivate Sub Form_Load()
       Dim I As Long
       For I = 0 To 20
           Me.List1.AddItem I
       Next
End Sub

Answer 2

Option ExplicitPrivate Sub Command1_Click()
        Command1.Caption = Combo1.List(0)
        Combo1.RemoveItem 0
        
End SubPrivate Sub Form_Load()
       Dim I As Long
       For I = 0 To 20
           Me.Combo1.AddItem I
       Next
End Sub