Index: trunk/TestCase/SimpleTestCase/SimpleTestCase.ab
===================================================================
--- trunk/TestCase/SimpleTestCase/SimpleTestCase.ab	(revision 444)
+++ trunk/TestCase/SimpleTestCase/SimpleTestCase.ab	(revision 457)
@@ -40,5 +40,4 @@
 End Sub
 
-Print "Please enter any key"
-Dim a As Long
-Input a
+Print "Please Enter key"
+System.Console.ReadLine()
Index: trunk/TestCase/SimpleTestCase/StringBuilderTest.ab
===================================================================
--- trunk/TestCase/SimpleTestCase/StringBuilderTest.ab	(revision 444)
+++ trunk/TestCase/SimpleTestCase/StringBuilderTest.ab	(revision 457)
@@ -9,13 +9,13 @@
 Sub TestMain()
 	Dim sb = New StringBuilder("Hello")
-	UnitTest("StringBuilder - Constractor & ToString", sb.ToString = "Hello")
-	UnitTest("StringBuilder.ToString(index, count)", sb.ToString(1, 3) = "ell")
-	UnitTest("StringBuilder.Append", sb.Append("StringBuilder").ToString = "HelloStringBuilder")
-	UnitTest("StringBuilder.Insert (String)", sb.Insert(5, ", ").ToString = "Hello, StringBuilder")
+	UnitTest("StringBuilder - Constractor & ToString", sb.ToString, "Hello")
+	UnitTest("StringBuilder.ToString(index, count)", sb.ToString(1, 3), "ell")
+	UnitTest("StringBuilder.Append", sb.Append("StringBuilder").ToString, "HelloStringBuilder")
+	UnitTest("StringBuilder.Insert (String)", sb.Insert(5, ", ").ToString, "Hello, StringBuilder")
 	sb.Length = 0
-	UnitTest("StringBuilder.Length = 0", sb.ToString = "")
+	UnitTest("StringBuilder.Length = 0", sb.ToString, "")
 	sb.Append("でてこいでてこいいけのこい")
 	sb.Replace("こい", "いけ").Replace("いけ", "こい")
-	UnitTest("StringBuilder.Replace (String)", sb.ToString = "でてこいでてこいいけのこい")
+	UnitTest("StringBuilder.Replace (String)", sb.ToString, "でてこいでてこいこいのこい")
 End Sub