Private Sub Command1_Click()List1.AddItem NowText1.Text = List1.ListCountIf List1.ListCount > 5 Then List1.RemoveItem 0End IfEnd Sub你参考一下这个代码就知道了
