Type mytype
MyName As String
MyBirthDate As Date
MySex As Integer
End Type
Type MyType2
mytype As mytype '引用mytype作為成員