简单排错，“参数不可选”，里面有三行代码，跟上鬼了，大家帮忙看一下！

[signboy]

一个类中有如下一个函数，编译不能通过，说什么参数
不可选，如果Collection换成integer就可以，why??

Public Function getCount() As Collection
Dim reports As New Collection
getCount = reports
End Function

[netcrawller]

Public Function getCount() As Collection
Dim reports As New Collection
'getCount = reports
set getCount = reports '这样呢
End Function

[victorycyz]

Public Function getCount() As Collection

Dim reports As New Collection
reports.Add "abc", "a"

Set getCount = reports

End Function

Private Sub Command1_Click()

Print getCount("a")

End Sub

[Sunron128]

將getCount = reports改寫成 set getCount = reports