Question

VB 关于Collection Add添加 自定义的数据类型(Type)的问题

Option Explicit

Private School As New Collection

Private Type Student
Name As String
Age As Integer
Num As Integer
End Type

Private Sub Command1_Click()
Dim kk As Student, sbsb
kk.Name = "张三"
kk.Age = 20
kk.Num = 1
School.Add kk, kk.Num
End Sub

我想把Student 自定义数据类型 Add 到 School 里，可是老提示出错,这个提示迷迷糊糊的。
编译错误：
只有定义在公共对象模块中用户定义类型能和变体类型相互转换或传递给后期绑定功能。

Answer 1

为了大家进步，我觉得有必要把更多的选择告诉大家。
http://bbs.csdn.net/topics/10061465

Answer 2

Private school As List(Of student) = New List(Of student)

Private Structure student
Dim name As String
Dim age As Integer
Dim num As Integer
End Structure

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim s As New student
With s
.name = "tom"
.age = 20
.num = 10
End With
school.Add(s)
End Sub

忘了说了这个是vb.net的。