Index: TestCase/SimpleTestCase/SimpleTestCase.ab
===================================================================
--- TestCase/SimpleTestCase/SimpleTestCase.ab	(revision 221)
+++ TestCase/SimpleTestCase/SimpleTestCase.ab	(revision 222)
@@ -2,5 +2,14 @@
 #include "SimpleTestCase.idx"
 
-' ↓ ここからプログラムが実行されます
+Function UnitTest( msg As String, isSuccessful As Boolean )
+	Dim resultStr As String
+	If isSuccessful Then
+		resultStr = Ex"OK\t"
+	Else
+		resultStr = Ex"Faild!\t"
+	End If
+	
+	Print resultStr, msg
+End Function
 
 Print "Please enter any key"
Index: TestCase/SimpleTestCase/SimpleTestCase.idx
===================================================================
--- TestCase/SimpleTestCase/SimpleTestCase.idx	(revision 221)
+++ TestCase/SimpleTestCase/SimpleTestCase.idx	(revision 222)
@@ -4,6 +4,2 @@
 
 'Win32APIの定義ファイル
-
-'リソースファイル
-#include "resource.ab"
-#resource "SimpleTestCase.rc"
Index: TestCase/SimpleTestCase/SimpleTestCase.pj
===================================================================
--- TestCase/SimpleTestCase/SimpleTestCase.pj	(revision 221)
+++ TestCase/SimpleTestCase/SimpleTestCase.pj	(revision 222)
@@ -23,5 +23,5 @@
 #DEBUG_EXE_PATH=
 
-#RESOURCE=SimpleTestCase.rc
+#RESOURCE=0
 
 #SOURCE