Imports System.Windows.Forms
Imports System.ComponentModel

Public Class OratorComboBox
	Inherits ComboBox

	''' <summary>
	''' コントロール最上部に表示される項目を設定します。値の取得も可能です。
	''' </summary>
	<Description("コントロール最上部に表示される項目を設定します。値の取得も可能です。")> _
	<Browsable(False), EditorBrowsable(EditorBrowsableState.Always)> _
	Public Property TopIndex() As Integer
		Get
			Dim m As Message = Message.Create(Handle, &H15B, IntPtr.Zero, IntPtr.Zero)
			DefWndProc(m)
			Return m.Result.ToInt32()
		End Get
		Set(ByVal value As Integer)
			DefWndProc(Message.Create(Handle, &H15C, New IntPtr(value), IntPtr.Zero))
		End Set
	End Property
End Class