Index: Include/system/interface.ab
===================================================================
--- Include/system/interface.ab	(revision 288)
+++ Include/system/interface.ab	(revision 289)
@@ -6,5 +6,7 @@
 Function CastToInterface( obj As Object, typeOfInterface As System.TypeInfo ) As InterfaceStructure
 	Dim interfaceStructure As InterfaceStructure
-	interfaceStructure.thisPtr = ObjPtr( obj )
-	interfaceStructure.vtblPtr = obj.GetVtbl( typeOfInterface )
+
+	' TODO: 実装
+	'interfaceStructure.thisPtr = ObjPtr( obj )
+	'interfaceStructure.vtblPtr = obj.GetVtbl( typeOfInterface )
 End Function