Imports System.Diagnostics
Imports Infragistics.Win
Imports Infragistics.Win.UltraWinToolbars
	Private Sub Button19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button19.Click
		' ----------------------------------------------------------------------------
		' ツールバーを作成し、UltraToolbarManager のツールバー コレクションに追加します
		Me.UltraToolbarsManager1.Toolbars.AddToolbar("Password")
		' ----------------------------------------------------------------------------
		' TextBoxTool および LabelTool を作成し、ツールバーに追加します
		Dim textBoxTool As New TextBoxTool("PasswordTextBox")
		Dim labelTool As New LabelTool("PasswordLabel")
		' メニューまたはツールバーに追加する前に、常に新しいツールを
		' UltraToolbarManager のルート ツール コレクションに追加します
		Me.UltraToolbarsManager1.Tools.AddRange(New ToolBase() {textBoxTool, labelTool})
		' ツールバーにツールを追加します
		Me.UltraToolbarsManager1.Toolbars("Password").Tools.AddTool("PasswordLabel")
		Me.UltraToolbarsManager1.Toolbars("Password").Tools.AddTool("PasswordTextBox")
		' ----------------------------------------------------------------------------
		' ラベルのキャプションを設定し、テキストを右揃えにします
		labelTool.SharedProps.Caption = "Password:"
		labelTool.SharedProps.AppearancesSmall.Appearance.FontData.Bold = DefaultableBoolean.True
		labelTool.SharedProps.AppearancesSmall.Appearance.TextHAlign = HAlign.Right
		' ----------------------------------------------------------------------------
		' パスワード入力のためにテキストボックスを設定します
		textBoxTool.PasswordChar = "*"
		textBoxTool.MaxLength = 10
		textBoxTool.Locked = False
		textBoxTool.Text = "password"
		textBoxTool.VerticalDisplayStyle = VerticalDisplayStyle.ShowAsButton
		textBoxTool.EditAppearance.FontData.Bold = DefaultableBoolean.True
	End Sub