'Classes/ActiveBasic/Windows/UI/ListBox.ab
#require <Classes/ActiveBasic/Windows/UI/Control.ab>

Namespace ActiveBasic
Namespace Windows
Namespace UI

/*!
@brief リストボックスコントロールのクラス
@date 2007/07/21
@auther Egtra
*/
Class ListBox
	Inherits Control
Protected
	Override Sub GetCreateStruct(ByRef cs As CREATESTRUCT)
		With cs
			.lpszClass = "LISTBOX"
		End With
	End Sub

	'ToDo: Lineなどを設ける
End Class

End Namespace 'UI
End Namespace 'Widnows
End Namespace 'ActiveBasic