Vb 类返回共有结构体

[hjessica]

我在一个EXE工程中写了一个类和一个标准模块

我现在在类中写个函数，返回值是标准模块里面的公用结构体，但是一直无法编译，不知道什么错误？

[东方之珠]

把代码贴出来看一看！

[迈克揉索芙特]

标准模块：
Type aa
ss As String
End Type

类模块：
Function test() As Variant
Dim a As aa
a.ss = Now
test = a
End Function

[hjessica]

找到方法了。。。

[vbman2003]

貌似可以传址再用CopyMemory？

标准模块：
Type aa
s As String
b as byte
End Type

类模块：
Function test(lng as long) As Variant
Dim a As aa
CopyMemory a,lng,len(a)
debug.? a.s
debug.? a.b
End Function

窗体：
dim t as ss
t.s="test"
t.b=123

dim c as new class1
c.test(varptr(t))


这样？