Index: trunk/TestCase/SimpleTestCase/DelegateTest.ab
===================================================================
--- trunk/TestCase/SimpleTestCase/DelegateTest.ab	(revision 355)
+++ trunk/TestCase/SimpleTestCase/DelegateTest.ab	(revision 356)
@@ -1,3 +1,2 @@
-/*
 Namespace DelegateTest
 
@@ -97,3 +96,2 @@
 
 DelegateTest.TestMain()
-*/
Index: trunk/TestCase/SimpleTestCase/InterfaceTest.ab
===================================================================
--- trunk/TestCase/SimpleTestCase/InterfaceTest.ab	(revision 356)
+++ trunk/TestCase/SimpleTestCase/InterfaceTest.ab	(revision 356)
@@ -0,0 +1,102 @@
+Namespace InterfaceTest
+
+Interface ITest1
+	Function Proc1() As String
+	Function Proc2( value As String ) As Boolean
+End Interface
+
+Interface ITest2
+	Function Proc5() As String
+	Function Proc6( value As String ) As Boolean
+End Interface
+
+Class Test1
+	Implements ITest1
+
+	a As Long
+
+Public
+	Sub Test1( initValue As Long )
+		a = initValue
+	End Sub
+
+	Override Function Proc1() As String
+		Return "Proc1 result" + a.ToString()
+	End Function
+
+	Override Function Proc2( value As String ) As Boolean
+		Return ( value = ( "Proc2 calling" + a.ToString() ) )
+	End Function
+End Class
+
+Class Test2
+	Implements ITest1, ITest2
+
+	a As Long
+
+Public
+	Sub Test2( initValue As Long )
+		a = initValue
+	End Sub
+
+	Override Function Proc1() As String
+		Return "Proc1 result" + a.ToString()
+	End Function
+
+	Override Function Proc2( value As String ) As Boolean
+		Return ( value = ( "Proc2 calling" + a.ToString() ) )
+	End Function
+
+	Override Function Proc5() As String
+		Return "Proc5 result" + a.ToString()
+	End Function
+
+	Override Function Proc6( value As String ) As Boolean
+		Return ( value = ( "Proc6 calling" + a.ToString() ) )
+	End Function
+End Class
+
+Sub GlobalProc1( itest1 As ITest1, n As Long )
+	UnitTest( "Interface ... GlobalProc1-1 " + n.ToString(), itest1.Proc1() = "Proc1 result123" )
+	UnitTest( "Interface ... GlobalProc1-2 " + n.ToString(), itest1.Proc2( "Proc2 calling123" ) )
+End Sub
+
+Sub GlobalProc2( itest1 As ITest1, itest2 As ITest2, n As Long )
+	If ObjPtr( itest1 ) <> NULL Then
+		UnitTest( "Interface ... GlobalProc2-1 " + n.ToString(), itest1.Proc1() = "Proc1 result123" )
+		UnitTest( "Interface ... GlobalProc2-2 " + n.ToString(), itest1.Proc2( "Proc2 calling123" ) )
+	End If
+
+	UnitTest( "Interface ... GlobalProc2-3 " + n.ToString(), itest2.Proc5() = "Proc5 result123" )
+	UnitTest( "Interface ... GlobalProc2-4 " + n.ToString(), itest2.Proc6( "Proc6 calling123" ) )
+End Sub
+
+Sub TestMain()
+	Dim test1 = New Test1( 123 )
+	UnitTest( "Interface ... calling class1 method 1", test1.Proc1() = "Proc1 result123" )
+	UnitTest( "Interface ... calling class1 method 2", test1.Proc2( "Proc2 calling123" ) )
+
+	Dim itest1 = test1 As ITest1
+	UnitTest( "Interface ... calling class1 interface 1", itest1.Proc1() = "Proc1 result123" )
+	UnitTest( "Interface ... calling class1 interface 2", itest1.Proc2( "Proc2 calling123" ) )
+
+	GlobalProc1( test1, 1 )
+	GlobalProc1( itest1, 2 )
+
+	Dim test2 = New Test2( 123 )
+	UnitTest( "Interface ... calling class2 method 1", test2.Proc1() = "Proc1 result123" )
+	UnitTest( "Interface ... calling class2 method 2", test2.Proc2( "Proc2 calling123" ) )
+	UnitTest( "Interface ... calling class2 method 1", test2.Proc5() = "Proc5 result123" )
+	UnitTest( "Interface ... calling class2 method 2", test2.Proc6( "Proc6 calling123" ) )
+
+	Dim itest2 = test2 As ITest2
+	UnitTest( "Interface ... calling class2 interface 1", itest2.Proc5() = "Proc5 result123" )
+	UnitTest( "Interface ... calling class2 interface 2", itest2.Proc6( "Proc6 calling123" ) )
+
+	GlobalProc2( test2, test2, 1 )
+	GlobalProc2( Nothing, itest2, 2 )
+End Sub
+
+End Namespace
+
+InterfaceTest.TestMain()
Index: trunk/TestCase/SimpleTestCase/SimpleTestCase.idx
===================================================================
--- trunk/TestCase/SimpleTestCase/SimpleTestCase.idx	(revision 355)
+++ trunk/TestCase/SimpleTestCase/SimpleTestCase.idx	(revision 356)
@@ -26,2 +26,8 @@
 #include "DelegateTest.ab"
 _ClearNamespaceImported
+#include "InterfaceTest.ab"
+_ClearNamespaceImported
+
+'リソースファイル
+#include "resource.ab"
+#resource "SimpleTestCase.rc"
Index: trunk/TestCase/SimpleTestCase/SimpleTestCase.pj
===================================================================
--- trunk/TestCase/SimpleTestCase/SimpleTestCase.pj	(revision 355)
+++ trunk/TestCase/SimpleTestCase/SimpleTestCase.pj	(revision 356)
@@ -23,5 +23,5 @@
 #DEBUG_EXE_PATH=
 
-#RESOURCE=0
+#RESOURCE=SimpleTestCase.rc
 
 #SOURCE
@@ -38,2 +38,3 @@
 SPrintFTest.ab
 DelegateTest.ab
+InterfaceTest.ab