Index: trunk/Include/Classes/System/Collections/Generic/List.ab
===================================================================
--- trunk/Include/Classes/System/Collections/Generic/List.ab	(revision 337)
+++ trunk/Include/Classes/System/Collections/Generic/List.ab	(revision 340)
@@ -97,4 +97,20 @@
 		size++
 	End Sub
+
+	/*!
+	@brief	List内で最初に出現する値を削除する
+	@author	Daisuke Yamamoto
+	@date	2007/09/28
+	@return	値が削除されたときはTrue、されなかったときはFlaseが返る
+	*/
+	Function Remove( item As T ) As Boolean
+		Dim index = IndexOf( item )
+		If index = -1 Then
+			Return False
+		End If
+		memmove( items + index*SizeOf(VoidPtr), items + (index+1)*SizeOf(VoidPtr), (size-(index+1))*SizeOf(VoidPtr) )
+		Realloc( size - 1 )
+		Return True
+	End Function
 End Class