Module Module1 'にゃんこクラス Public Class Cat Private _name As String Property Name() As String Get Return _name End Get Set(ByVal value As String) _name = value End Set End Property Private _type As String Property Type() As String Get Return _Type End Get Set(ByVal value As String) _Type = value End Set End Property End Class Sub Main() Dim Nyans As New List(Of Cat) 'にゃんこが集合 Nyans.Add(New Cat With {.