Index: /Include/Classes/System/Runtime/InteropServices/GCHandle.ab
===================================================================
--- /Include/Classes/System/Runtime/InteropServices/GCHandle.ab	(revision 229)
+++ /Include/Classes/System/Runtime/InteropServices/GCHandle.ab	(revision 230)
@@ -12,5 +12,5 @@
 	Sub Target(obj As Object)
 		allocated.Add(obj)
-		handle = GetPointer(VarPtr(obj))
+		handle = VarPtr(obj) 'ObjPtr
 	End Sub
 
Index: /TestCase/SimpleTestCase/GCHandleTest.ab
===================================================================
--- /TestCase/SimpleTestCase/GCHandleTest.ab	(revision 230)
+++ /TestCase/SimpleTestCase/GCHandleTest.ab	(revision 230)
@@ -0,0 +1,25 @@
+#require <Classes/System/Runtime/InteropServices/GCHandle.ab>
+
+'--------------------------------------------------------------------
+' Test case of GCHandle Class
+'--------------------------------------------------------------------
+
+Namespace GCHandleTest
+
+Sub TestMain()
+	Dim o = New Object
+	Dim gch = GCHandle.Alloc(o)
+	UnitTest("GCHandle.Alloc, Target", o.Equals(gch.Target))
+
+	Dim ip = GCHandle.ToIntPtr(gch)
+	gch = Nothing
+
+	gch = GCHandle.FromIntPtr(ip)
+	UnitTest("GCHandle - IntPtr", o.Equals(gch.Target))
+
+
+End Sub
+
+End Namespace
+
+GCHandleTest.TestMain()
Index: /TestCase/SimpleTestCase/ObjectTest.ab
===================================================================
--- /TestCase/SimpleTestCase/ObjectTest.ab	(revision 229)
+++ /TestCase/SimpleTestCase/ObjectTest.ab	(revision 230)
@@ -5,4 +5,5 @@
 Namespace ObjectTest
 
+Sub TestMain()
 	Dim obj1 As Object
 	Dim obj2 As Object
@@ -21,4 +22,7 @@
 
 	UnitTest( "Object.GetType", obj1.GetType().Name = "Object" )
+End Sub
 
 End Namespace
+
+ObjectTest.TestMain()
Index: /TestCase/SimpleTestCase/SimpleTestCase.idx
===================================================================
--- /TestCase/SimpleTestCase/SimpleTestCase.idx	(revision 229)
+++ /TestCase/SimpleTestCase/SimpleTestCase.idx	(revision 230)
@@ -8,6 +8,3 @@
 #include "ObjectTest.ab"
 #include "StringTest.ab"
-
-'リソースファイル
-#include "resource.ab"
-#resource "SimpleTestCase.rc"
+#include "GCHandleTest.ab"
Index: /TestCase/SimpleTestCase/SimpleTestCase.pj
===================================================================
--- /TestCase/SimpleTestCase/SimpleTestCase.pj	(revision 229)
+++ /TestCase/SimpleTestCase/SimpleTestCase.pj	(revision 230)
@@ -23,5 +23,5 @@
 #DEBUG_EXE_PATH=
 
-#RESOURCE=SimpleTestCase.rc
+#RESOURCE=0
 
 #SOURCE
@@ -29,2 +29,3 @@
 ObjectTest.ab
 StringTest.ab
+GCHandleTest.ab
Index: /TestCase/SimpleTestCase/StringTest.ab
===================================================================
--- /TestCase/SimpleTestCase/StringTest.ab	(revision 229)
+++ /TestCase/SimpleTestCase/StringTest.ab	(revision 230)
@@ -5,4 +5,5 @@
 Namespace StringTest
 
+Sub TestMain()
 	Dim s1 = Nothing As String
 
@@ -61,3 +62,7 @@
 	' まだまだ追加求む
 
+End Sub
+
 End Namespace
+
+StringTest.TestMain()