Public Function AddListView(ListViewName As ListView, Rows As Integer, Columns As Integer, Text As String)

ListViewName.ListItems(Rows).ListSubItems(Columns).Text = Text-------------------------------------此行出错

End Function