关于ListView问题，求指点
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 比较方便输入.....求高手指点



[解决办法]
Private Function LVAdd(ByRef lvListView As ListView) As ListView
应为ListItem