Index: trunk/Include/Classes/ActiveBasic/Core/TypeInfo.ab
===================================================================
--- trunk/Include/Classes/ActiveBasic/Core/TypeInfo.ab	(revision 402)
+++ trunk/Include/Classes/ActiveBasic/Core/TypeInfo.ab	(revision 403)
@@ -15,4 +15,5 @@
 	memberTypeFullNames As *String		' 型名リスト
 	memberCounts As Long				' 個数
+	memberInfosCache As System.Collections.Generic.List<System.Reflection.MemberInfo>
 
 Protected
@@ -108,4 +109,17 @@
 	' Public methods
 	'----------------------------------------------------------------
+
+	Override Function GetMembers() As System.Collections.Generic.List<System.Reflection.MemberInfo>
+		If Object.ReferenceEquals( memberInfosCache, Nothing ) Then
+			' キャッシュにないときは生成する
+			memberInfosCache = New System.Collections.Generic.List
+			Dim i As Long
+			For i=0 To ELM(memberCounts)
+				memberInfosCache.Add( New System.Reflection.MemberInfo( memberNames[i], _System_TypeBase_Search( memberTypeFullNames[i] ) ) )
+			Next
+		End If
+
+		Return memberInfosCache
+	End Function
 
 End Class
Index: trunk/Include/Classes/System/Collections/Generic/Dictionary.ab
===================================================================
--- trunk/Include/Classes/System/Collections/Generic/Dictionary.ab	(revision 402)
+++ trunk/Include/Classes/System/Collections/Generic/Dictionary.ab	(revision 403)
@@ -58,6 +58,7 @@
 			Next
 		End If
-		debug
-		'KeyNotFoundException
+
+		Throw New KeyNotFoundException
+
 		Return Nothing
 	End Function
Index: trunk/Include/Classes/System/Collections/Generic/KeyNotFoundException.ab
===================================================================
--- trunk/Include/Classes/System/Collections/Generic/KeyNotFoundException.ab	(revision 403)
+++ trunk/Include/Classes/System/Collections/Generic/KeyNotFoundException.ab	(revision 403)
@@ -0,0 +1,13 @@
+Namespace System
+Namespace Collections
+Namespace Generic
+
+
+Class KeyNotFoundException
+	Inherits System.SystemException
+End Class
+
+
+End Namespace
+End Namespace
+End Namespace
Index: trunk/Include/Classes/System/Reflection/MemberInfo.ab
===================================================================
--- trunk/Include/Classes/System/Reflection/MemberInfo.ab	(revision 402)
+++ trunk/Include/Classes/System/Reflection/MemberInfo.ab	(revision 403)
@@ -0,0 +1,25 @@
+Namespace System
+Namespace Reflection
+
+
+Class MemberInfo
+	name As String
+	memberType As TypeInfo
+Public
+	Sub MemberInfo( name As String, memberType As TypeInfo )
+		This.name = name
+		This.memberType = memberType
+	End Sub
+
+	Function Name() As String
+		Return name
+	End Function
+
+	Function MemberType() As TypeInfo
+		Return memberType
+	End Function
+End Class
+
+
+End Namespace
+End Namespace
Index: trunk/Include/Classes/System/TypeInfo.ab
===================================================================
--- trunk/Include/Classes/System/TypeInfo.ab	(revision 402)
+++ trunk/Include/Classes/System/TypeInfo.ab	(revision 403)
@@ -1,6 +1,2 @@
-' 実装中...
-'（※ まだ組み込んでいません）
-
-
 Namespace System
 
@@ -45,4 +41,6 @@
 	'----------------------------------------------------------------
 
+	Abstract Function GetMembers() As System.Collections.Generic.List<System.Reflection.MemberInfo>
+
 End Class
 
Index: trunk/Include/Classes/index.ab
===================================================================
--- trunk/Include/Classes/index.ab	(revision 402)
+++ trunk/Include/Classes/index.ab	(revision 403)
@@ -27,4 +27,5 @@
 #require "./System/Collections/Generic/Dictionary.ab"
 #require "./System/Collections/Generic/List.ab"
+#require "./System/Collections/Generic/KeyNotFoundException.ab"
 /*
 #require "./System/Data/Odbc/Odbc.ab"
@@ -70,4 +71,5 @@
 #require "./System/Media/SystemSound.ab"
 #require "./System/Media/SystemSounds.ab"
+#require "./System/Reflection/MemberInfo.ab"
 #require "./System/Runtime/InteropServices/GCHandle.ab"
 #require "./System/Security/AccessControl/misc.ab"