不同的结构体如果放到一个数组中，然后循环区出来？
比如有2个结构体
private type TestA
s1 as string
end type

private type TestB
s2 as string
end type

dim a as TestA
dim b as TestB
然后怎么定义一个数组后把a,b放到数组中去
再for循环拿出来，并打印里面的s1和s2内容？

我碰到了报错信息“只有定义在公共对象模块中用户定义类型能和变体类型...”

这是我的一个作业，要求必须使用结构体，还不能用类。

谢谢指教！

[解决办法]
Option Explicit
Private Declare Sub CopyMemory Lib "kernel32 " Alias "RtlMoveMemory " _
(Destination As Any, Source As Any, ByVal Length As Long)
Private Type TestA
s1 As String
End Type

Private Type TestB
s2 As String
End Type

Dim a As TestA
Dim b As TestB

Dim c(1) As Long

Private Sub Command1_Click()
Dim i As Long
Dim s As String
For i = 0 To UBound(c)
CopyMemory ByVal VarPtr(s), ByVal c(i), 4
MsgBox s
Next

End Sub

Private Sub Form_Load()
a.s1 = "hello "
b.s2 = "test "
c(0) = VarPtr(a)
c(1) = VarPtr(b)
End Sub