返回值是数组的问题

我新建了一个类模块,然后在类模块中加了一个代码
Dim mm() As String
Public Function set(a() As String)
mm = a
End FunctionPublic Function get() As String()
get = mm
End Function我在Form的Load时加入了
Dim zz() As String
Dim i As Integer
For i = 0 To 9
    zz(i) = "abc" & i
Next i
pp.set zz在form上有一个控件Command代码是
dim qq() as string
dim i as integer
qq=pp.get            '这句话运行错误,为什么?
For i = 0 To 9
    print qq(i)
Next i