关于ListView问题，求指点

Question

 Private Function LVAdd(ByRef lvListView As ListView) As ListView
    Dim n&
    n = lvListView.ListItems.Count + 1
    lvListView.ListItems.Add n, , n
    lvListView.ListItems(n).EnsureVisible
    Set lvListView.SelectedItem = lvListView.ListItems(n)
    Set LVAdd = lvListView.SelectedItem
End Function这个如果是放在窗体事件里比如Command1_Click里就没错，但是放在function里老是报错,貌似是类型不正确，IListView类型什么的
应该怎么改啊？我的目的是增加创建一行ListView,然后导出增加的那行ListView对象，这样我直接就可以 .SubItems 比较方便输入.....求高手指点

Answer 1

Private Function LVAdd(ByRef lvListView As ListView) As ListView
应为ListItem