TIListBox.MultiSelect = 1
TIListBox.ListStyle = 1
TIListBox.ColumnWidths = 62
TIListBox.ColumnCount = 1
Dim arr, brr
C_Control arr, brr
'将记录集显示到列表框中
Dim i As Integer
With TIListBox
.Clear '先清空再添加
For i = 1 To UBound(arr)
.AddItem brr(i)
Next
End With
https://blog.csdn.net/lyfegf/article/details/103746134
标签：TIListBox,vba,Dim,ArrayList,arr,brr From： https://www.cnblogs.com/Insist-Y/p/16952014.html