问题描述：
Private Type a
    a1 As String
    a2 As String
    a3 As String
End Type

希望可以像这样访问
Dim s As String
Dim t As a
t.a1 = "a1"
t.a2 = "a2"
t.a3 = "a3"
For Each s In t
    Debug.Print s
Next
在vb6里的Type没有实现IEnumerator接口，唉。。。
如果仅仅是为了“遍历”这么一点小小的要求，就改用Dictinary或者Collection，好像不值得。
而且他们对成员的个数不像Type那样有明确的限制，便于设计数据的结构。自己写个类再包装Dictionary？