关于type的一个过程，请高人指点下：

Private Type record
'定义包含一个或多个元素的用户自定义的数据类型 record，这个自定义的类型在本模块或窗体内有效。

id As Integer
'自定义的类型的第一个对象 id，是 Integer类型

name As String
'自定义的类型的第二个对象 name，是 String类型

End Type
'自定义结束

'在程序中这样使用自定义类型 record
Private Sub Command1_Click()
Dim MyType As record '声明变量 MyType 为 record 类型
MyType.id = 500 '设置 MyType 的 id 对象为 500
MyType.name = "我的名字" '设置 MyType 的 name 对象为 我的名字
Print MyType.id '显示 MyType 的 id 对象
Print MyType.name '显示 MyType 的 id 对象
End Sub

定义一个私有的名叫record的结构体
结构体内部包括一个整形变量id及一个字符串变量name.