Index: trunk/ab5.0/ablib/TestCase/UI_Sample/UI_Sample.manifest.xml
===================================================================
--- trunk/ab5.0/ablib/TestCase/UI_Sample/UI_Sample.manifest.xml	(revision 561)
+++ trunk/ab5.0/ablib/TestCase/UI_Sample/UI_Sample.manifest.xml	(revision 561)
@@ -0,0 +1,24 @@
+<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
+<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
+	<description>UI_Sample</description>
+	<dependency>
+		<dependentAssembly>
+			<assemblyIdentity
+				type="win32"
+				name="Microsoft.Windows.Common-Controls"
+				version="6.0.0.0"
+				processorArchitecture="*"
+				publicKeyToken="6595b64144ccf1df"
+				language="*" />
+		</dependentAssembly>
+	</dependency>
+	<trustInfo xmlns="urn:schemas-microsoft-com:asm.v2">
+		<security>
+			<requestedPrivileges>
+				<requestedExecutionLevel
+					level="asInvoker"
+					uiAccess="false"/>
+			</requestedPrivileges>
+		</security>
+	</trustInfo>
+</assembly>
Index: trunk/ab5.0/ablib/TestCase/UI_Sample/UI_Sample.rc
===================================================================
--- trunk/ab5.0/ablib/TestCase/UI_Sample/UI_Sample.rc	(revision 561)
+++ trunk/ab5.0/ablib/TestCase/UI_Sample/UI_Sample.rc	(revision 561)
@@ -0,0 +1,1 @@
+CREATEPROCESS_MANIFEST_RESOURCE_ID RT_MANIFEST "UI_Sample.manifest.xml"
Index: trunk/ab5.0/ablib/TestCase/UI_Sample/step11_TextEditoer.ab
===================================================================
--- trunk/ab5.0/ablib/TestCase/UI_Sample/step11_TextEditoer.ab	(revision 561)
+++ trunk/ab5.0/ablib/TestCase/UI_Sample/step11_TextEditoer.ab	(revision 561)
@@ -0,0 +1,40 @@
+/*!
+@file
+@brief 「Win32プログラミング講座 ～ Step11. テキスト エディタを作る ～」のAB5移植版
+http://www.activebasic.com/help_center/articles/win32/step05/
+まだメニューバーがないんでそれっぽくありません。
+
+@date 2008/07/20
+@auther Egtra
+*/
+
+#require <Classes/ActiveBasic/Windows/UI/Application.ab>
+#require <Classes/ActiveBasic/Windows/UI/Form.ab>
+#require <Classes/ActiveBasic/Windows/UI/EditBox.ab>
+
+#resource "UI_Sample.rc"
+
+Imports ActiveBasic.Windows.UI
+
+Class MyForm
+	Inherits Form
+Public
+	Sub MyForm()
+		AddResize(AddressOf(OnResize))
+		Create()
+		myEdit = New EditBox
+		myEdit.Create(This, ES_MULTILINE Or ES_WANTRETURN Or ES_AUTOHSCROLL Or ES_AUTOVSCROLL Or WS_HSCROLL Or WS_VSCROLL, WS_EX_CLIENTEDGE)
+		myEdit.SendMessage(WM_SETFONT, GetStockObject(DEFAULT_GUI_FONT) As WPARAM, 0)
+		Show(SW_SHOWDEFAULT)
+	End Sub
+
+	Sub OnResize(sender As Object, e As ResizeArgs)
+		myEdit.Move(0, 0, e.X, e.Y)
+	End Sub
+Private
+	myEdit As EditBox
+End Class
+
+Control.Initialize(GetModuleHandle(0))
+
+Application.Run(New MyForm)
Index: trunk/ab5.0/ablib/TestCase/UI_Sample/step5_DayTimeCheck.ab
===================================================================
--- trunk/ab5.0/ablib/TestCase/UI_Sample/step5_DayTimeCheck.ab	(revision 559)
+++ trunk/ab5.0/ablib/TestCase/UI_Sample/step5_DayTimeCheck.ab	(revision 561)
@@ -1,13 +1,20 @@
-'「Win32プログラミング講座 ～ Step5. ボタン コントロールを使う ～」のAB5移植版
-'http://www.activebasic.com/help_center/articles/win32/step05/
+/*!
+@file
+@brief 「Win32プログラミング講座 ～ Step5. ボタン コントロールを使う ～」のAB5移植版
+http://www.activebasic.com/help_center/articles/win32/step05/
 
-'2008/07/20 Egtra
+@date 2008/07/20
+@auther Egtra
+*/
 
 #require <Classes/ActiveBasic/Windows/UI/Form.ab>
 #require <Classes/ActiveBasic/Windows/UI/Application.ab>
 #require <Classes/ActiveBasic/Windows/UI/Button.ab>
+#require <Classes/ActiveBasic/Windows/UI/TaskMsg.ab>
 
 Imports ActiveBasic.Windows.UI
 Imports System
+
+#resource "UI_Sample.rc"
 
 Class DayTimeCheckForm
@@ -51,9 +58,9 @@
 
 	Sub ButtonDate_Click(sender As Object, e As Args)
-		MessageBox(This, ToTCStr(DateTime.Today.GetDateTimeFormats("yyyy/MM/dd")), "今日の日付", MB_OK)
+		TaskMsg(This, "今日の日付", DateTime.Today.GetDateTimeFormats("yyyy/MM/dd"), Nothing, MB_OK)
 	End Sub
 
 	Sub ButtonTime_Click(sender As Object, e As Args)
-		MessageBox(This, ToTCStr(DateTime.Now.GetDateTimeFormats("H:mm:ss")), "今日の日付", MB_OK)
+		TaskMsg(This, "今日の日付", DateTime.Now.GetDateTimeFormats("H:mm:ss"), Nothing, MB_OK)
 	End Sub
 
