Index: trunk/ab5.0/ablib/src/Classes/ActiveBasic/Windows/UI/ListBox.ab
===================================================================
--- trunk/ab5.0/ablib/src/Classes/ActiveBasic/Windows/UI/ListBox.ab	(revision 642)
+++ trunk/ab5.0/ablib/src/Classes/ActiveBasic/Windows/UI/ListBox.ab	(revision 643)
@@ -12,5 +12,5 @@
 */
 Class ListBox
-	Inherits Control
+	Inherits WmCommandControl
 Public
 	Sub ListBox()
@@ -30,4 +30,29 @@
 		End If
 	End Sub
+
+	/*
+	@date 2008/10/18
+	@todo 対応するイベントをまだ設けていない通知メッセージへの対応
+	*/
+	Override Function RaiseCommandEvent(notificationCode As Word) As Boolean
+		Dim lr As LRESULT
+		RaiseCommandEvent = False
+		Select Case notificationCode
+			Case LBN_ERRSPACE
+				RaiseCommandEvent = False
+			Case LBN_SELCHANGE
+				RaiseCommandEvent = False
+			Case BN_CLICKED
+				RaiseCommandEvent = OnClick(Args.Empty)
+			Case LBN_DBLCLK
+				RaiseCommandEvent = OnDoubleClick(Args.Empty)
+			Case LBN_SELCANCEL
+				RaiseCommandEvent = False
+			Case LBN_SETFOCUS
+				RaiseCommandEvent = ProcessMessage(WM_SETFOCUS, 0, 0, lr)
+			Case LBN_KILLFOCUS
+				RaiseCommandEvent = ProcessMessage(WM_KILLFOCUS, 0, 0, lr)
+		End Select
+	End Function
 Protected
 	Override Sub GetCreateStruct(ByRef cs As CREATESTRUCT)