一个有点让小弟我搞不懂的有关问题,可能钻了牛角了,应该很简单

一个有点让我搞不懂的问题,可能钻了牛角了,应该很简单.
程序中,放着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

[解决办法]
利用数组