一个有点让我搞不懂的问题,可能钻了牛角了,应该很简单.
程序中,放着list1 list2 list3等多个list控件
Private Sub Form_Click()
Call test( "明星 ", 1) '第二个就是想做list标识
End Sub

Sub test(a As String, b As Integer)
if b=1 then
list1.AddItem a
elseif b=2 then
list2.AddItem a
.......
end if
End Sub

不想要上面这种,有没有更简易的方法?因为sub中会有数次for来调用.

能不能就list "b "这种简易可行的?

帮帮我.........

[解决办法]
做成控件数组.然后

Sub test(a As String, b As Integer)
list1(b).AddItem a
End Sub

[解决办法]
利用数组