Partial Class frmGlobix_Index Inherits DevExpress.XtraBars.Ribbon.RibbonForm 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. Protected Overrides Sub Dispose(ByVal disposing As Boolean) Try If disposing AndAlso components IsNot Nothing Then components.Dispose() End If Finally MyBase.Dispose(disposing) End Try End Sub 'Wird vom Windows Form-Designer benötigt. Private components As System.ComponentModel.IContainer 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. Private Sub InitializeComponent() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmGlobix_Index)) Dim EditorButtonImageOptions1 As DevExpress.XtraEditors.Controls.EditorButtonImageOptions = New DevExpress.XtraEditors.Controls.EditorButtonImageOptions() Dim SerializableAppearanceObject1 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() Dim SerializableAppearanceObject2 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() Dim SerializableAppearanceObject3 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() Dim SerializableAppearanceObject4 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl() Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem() Me.BarButtonItem3 = New DevExpress.XtraBars.BarButtonItem() Me.SkipItem = New DevExpress.XtraBars.BarButtonItem() Me.BarButtonItem5 = New DevExpress.XtraBars.BarButtonItem() Me.checkItemTopMost = New DevExpress.XtraBars.BarCheckItem() Me.SourceDeleteItem = New DevExpress.XtraBars.BarCheckItem() Me.checkItemPreselection = New DevExpress.XtraBars.BarCheckItem() Me.PreviewItem = New DevExpress.XtraBars.BarCheckItem() Me.labelFilePath = New DevExpress.XtraBars.BarStaticItem() Me.labelError = New DevExpress.XtraBars.BarStaticItem() Me.labelNotice = New DevExpress.XtraBars.BarStaticItem() Me.chkMultiindexing = New DevExpress.XtraBars.BarCheckItem() Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem() Me.BarHeaderItem1 = New DevExpress.XtraBars.BarHeaderItem() Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.BarCheckItem2 = New DevExpress.XtraBars.BarCheckItem() Me.SplitContainerControl1 = New DevExpress.XtraEditors.SplitContainerControl() Me.pnlIndex = New System.Windows.Forms.Panel() Me.Panel3 = New System.Windows.Forms.Panel() Me.btnAblageFlow = New System.Windows.Forms.Button() Me.Panel1 = New System.Windows.Forms.Panel() Me.ComboBoxEdit1 = New DevExpress.XtraEditors.ComboBoxEdit() Me.DocumentViewer1 = New DigitalData.Controls.DocumentViewer.DocumentViewer() Me.GlobixDataset = New DigitalData.GUIs.ZooFlow.GlobixDataset() CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).BeginInit() Me.SplitContainerControl1.SuspendLayout() Me.Panel3.SuspendLayout() Me.Panel1.SuspendLayout() CType(Me.ComboBoxEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GlobixDataset, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'RibbonControl1 ' Me.RibbonControl1.CommandLayout = DevExpress.XtraBars.Ribbon.CommandLayout.Simplified Me.RibbonControl1.ExpandCollapseItem.Id = 0 Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem2, Me.BarButtonItem3, Me.SkipItem, Me.BarButtonItem5, Me.checkItemTopMost, Me.SourceDeleteItem, Me.checkItemPreselection, Me.PreviewItem, Me.labelFilePath, Me.labelError, Me.labelNotice, Me.chkMultiindexing, Me.BarButtonItem1, Me.BarHeaderItem1}) Me.RibbonControl1.Location = New System.Drawing.Point(0, 0) Me.RibbonControl1.MaxItemId = 16 Me.RibbonControl1.Name = "RibbonControl1" Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False] Me.RibbonControl1.ShowPageHeadersMode = DevExpress.XtraBars.Ribbon.ShowPageHeadersMode.Hide Me.RibbonControl1.Size = New System.Drawing.Size(1005, 66) Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 ' 'BarButtonItem2 ' Me.BarButtonItem2.Caption = "Profilauswahl merken" Me.BarButtonItem2.Id = 2 Me.BarButtonItem2.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.BarButtonItem2.Name = "BarButtonItem2" ' 'BarButtonItem3 ' Me.BarButtonItem3.Caption = "Dateivorschau aktiv" Me.BarButtonItem3.Id = 3 Me.BarButtonItem3.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem3.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.BarButtonItem3.Name = "BarButtonItem3" ' 'SkipItem ' Me.SkipItem.Caption = "Datei überspringen" Me.SkipItem.Id = 4 Me.SkipItem.ImageOptions.SvgImage = CType(resources.GetObject("SkipItem.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.SkipItem.Name = "SkipItem" ' 'BarButtonItem5 ' Me.BarButtonItem5.Caption = "Andere Fenster überdecken" Me.BarButtonItem5.Id = 5 Me.BarButtonItem5.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem5.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.BarButtonItem5.Name = "BarButtonItem5" ' 'checkItemTopMost ' Me.checkItemTopMost.BindableChecked = True Me.checkItemTopMost.Caption = "Andere Fenster überdecken" Me.checkItemTopMost.Checked = True Me.checkItemTopMost.Id = 6 Me.checkItemTopMost.ImageOptions.SvgImage = CType(resources.GetObject("checkItemTopMost.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.checkItemTopMost.Name = "checkItemTopMost" ' 'SourceDeleteItem ' Me.SourceDeleteItem.Caption = "Ursprungsdatei löschen" Me.SourceDeleteItem.Id = 7 Me.SourceDeleteItem.ImageOptions.SvgImage = CType(resources.GetObject("SourceDeleteItem.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.SourceDeleteItem.Name = "SourceDeleteItem" ' 'checkItemPreselection ' Me.checkItemPreselection.Caption = "Profilauswahl merken" Me.checkItemPreselection.Id = 8 Me.checkItemPreselection.ImageOptions.SvgImage = CType(resources.GetObject("checkItemPreselection.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.checkItemPreselection.Name = "checkItemPreselection" ' 'PreviewItem ' Me.PreviewItem.Caption = "Dateivorschau aktiv" Me.PreviewItem.Id = 9 Me.PreviewItem.ImageOptions.SvgImage = CType(resources.GetObject("PreviewItem.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.PreviewItem.Name = "PreviewItem" ' 'labelFilePath ' Me.labelFilePath.Caption = "labelFilePath" Me.labelFilePath.Id = 10 Me.labelFilePath.ImageOptions.SvgImage = CType(resources.GetObject("labelFilePath.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.labelFilePath.Name = "labelFilePath" Me.labelFilePath.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph ' 'labelError ' Me.labelError.Caption = "labelError" Me.labelError.Id = 11 Me.labelError.ImageOptions.SvgImage = CType(resources.GetObject("labelError.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.labelError.Name = "labelError" Me.labelError.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph Me.labelError.Visibility = DevExpress.XtraBars.BarItemVisibility.Never ' 'labelNotice ' Me.labelNotice.Caption = "labelNotice" Me.labelNotice.Id = 12 Me.labelNotice.ImageOptions.SvgImage = CType(resources.GetObject("labelNotice.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.labelNotice.Name = "labelNotice" Me.labelNotice.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph Me.labelNotice.Visibility = DevExpress.XtraBars.BarItemVisibility.Never ' 'chkMultiindexing ' Me.chkMultiindexing.Caption = "Multi Indexing" Me.chkMultiindexing.Id = 13 Me.chkMultiindexing.ImageOptions.SvgImage = CType(resources.GetObject("chkMultiindexing.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.chkMultiindexing.ItemInMenuAppearance.Pressed.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(0, Byte), Integer)) Me.chkMultiindexing.ItemInMenuAppearance.Pressed.Options.UseBackColor = True Me.chkMultiindexing.Name = "chkMultiindexing" ' 'BarButtonItem1 ' Me.BarButtonItem1.Caption = "fester text" Me.BarButtonItem1.Id = 14 Me.BarButtonItem1.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.BarButtonItem1.Name = "BarButtonItem1" Me.BarButtonItem1.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large ' 'BarHeaderItem1 ' Me.BarHeaderItem1.Caption = "BarHeaderItem1" Me.BarHeaderItem1.Id = 15 Me.BarHeaderItem1.ImageOptions.SvgImage = CType(resources.GetObject("BarHeaderItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.BarHeaderItem1.Name = "BarHeaderItem1" Me.BarHeaderItem1.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large ' 'RibbonPage1 ' Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup2}) Me.RibbonPage1.Name = "RibbonPage1" Me.RibbonPage1.Text = "Start" ' 'RibbonPageGroup1 ' Me.RibbonPageGroup1.ItemLinks.Add(Me.SourceDeleteItem) Me.RibbonPageGroup1.ItemLinks.Add(Me.checkItemPreselection) Me.RibbonPageGroup1.ItemLinks.Add(Me.SkipItem) Me.RibbonPageGroup1.ItemLinks.Add(Me.PreviewItem) Me.RibbonPageGroup1.ItemLinks.Add(Me.chkMultiindexing) Me.RibbonPageGroup1.Name = "RibbonPageGroup1" Me.RibbonPageGroup1.Text = "Indexierung" ' 'RibbonPageGroup2 ' Me.RibbonPageGroup2.Alignment = DevExpress.XtraBars.Ribbon.RibbonPageGroupAlignment.Far Me.RibbonPageGroup2.ItemLinks.Add(Me.checkItemTopMost) Me.RibbonPageGroup2.Name = "RibbonPageGroup2" Me.RibbonPageGroup2.Text = "Fenster" ' 'RibbonStatusBar1 ' Me.RibbonStatusBar1.ItemLinks.Add(Me.labelFilePath) Me.RibbonStatusBar1.ItemLinks.Add(Me.labelError) Me.RibbonStatusBar1.ItemLinks.Add(Me.labelNotice) Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 574) Me.RibbonStatusBar1.Name = "RibbonStatusBar1" Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1 Me.RibbonStatusBar1.Size = New System.Drawing.Size(1005, 22) ' 'RibbonPage2 ' Me.RibbonPage2.Name = "RibbonPage2" Me.RibbonPage2.Text = "RibbonPage2" ' 'BarCheckItem2 ' Me.BarCheckItem2.Caption = "Ursprungsdatei löschen" Me.BarCheckItem2.Id = 7 Me.BarCheckItem2.ImageOptions.SvgImage = CType(resources.GetObject("BarCheckItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.BarCheckItem2.Name = "BarCheckItem2" ' 'SplitContainerControl1 ' Me.SplitContainerControl1.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.Panel2 Me.SplitContainerControl1.Dock = System.Windows.Forms.DockStyle.Fill Me.SplitContainerControl1.Location = New System.Drawing.Point(0, 66) Me.SplitContainerControl1.Name = "SplitContainerControl1" Me.SplitContainerControl1.Panel1.Controls.Add(Me.pnlIndex) Me.SplitContainerControl1.Panel1.Controls.Add(Me.Panel3) Me.SplitContainerControl1.Panel1.Controls.Add(Me.Panel1) Me.SplitContainerControl1.Panel1.Text = "Panel1" Me.SplitContainerControl1.Panel2.Controls.Add(Me.DocumentViewer1) Me.SplitContainerControl1.Panel2.Text = "Panel2" Me.SplitContainerControl1.Size = New System.Drawing.Size(1005, 508) Me.SplitContainerControl1.SplitterPosition = 591 Me.SplitContainerControl1.TabIndex = 2 ' 'pnlIndex ' Me.pnlIndex.BackColor = System.Drawing.SystemColors.Control Me.pnlIndex.Dock = System.Windows.Forms.DockStyle.Fill Me.pnlIndex.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.pnlIndex.ForeColor = System.Drawing.SystemColors.ControlText Me.pnlIndex.Location = New System.Drawing.Point(0, 33) Me.pnlIndex.Name = "pnlIndex" Me.pnlIndex.Size = New System.Drawing.Size(591, 400) Me.pnlIndex.TabIndex = 3 ' 'Panel3 ' Me.Panel3.Controls.Add(Me.btnAblageFlow) Me.Panel3.Dock = System.Windows.Forms.DockStyle.Bottom Me.Panel3.Location = New System.Drawing.Point(0, 433) Me.Panel3.Name = "Panel3" Me.Panel3.Size = New System.Drawing.Size(591, 75) Me.Panel3.TabIndex = 2 ' 'btnAblageFlow ' Me.btnAblageFlow.Dock = System.Windows.Forms.DockStyle.Fill Me.btnAblageFlow.Font = New System.Drawing.Font("Tahoma", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.btnAblageFlow.Image = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.ZooFlow_g_64___Kopie Me.btnAblageFlow.ImageAlign = System.Drawing.ContentAlignment.MiddleRight Me.btnAblageFlow.Location = New System.Drawing.Point(0, 0) Me.btnAblageFlow.Name = "btnAblageFlow" Me.btnAblageFlow.Size = New System.Drawing.Size(591, 75) Me.btnAblageFlow.TabIndex = 1 Me.btnAblageFlow.Text = "Starte Ablage" Me.btnAblageFlow.TextAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnAblageFlow.UseVisualStyleBackColor = True ' 'Panel1 ' Me.Panel1.BackColor = System.Drawing.Color.Silver Me.Panel1.Controls.Add(Me.ComboBoxEdit1) Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top Me.Panel1.Location = New System.Drawing.Point(0, 0) Me.Panel1.Name = "Panel1" Me.Panel1.Size = New System.Drawing.Size(591, 33) Me.Panel1.TabIndex = 0 ' 'ComboBoxEdit1 ' Me.ComboBoxEdit1.Dock = System.Windows.Forms.DockStyle.Top Me.ComboBoxEdit1.Location = New System.Drawing.Point(0, 0) Me.ComboBoxEdit1.MenuManager = Me.RibbonControl1 Me.ComboBoxEdit1.Name = "ComboBoxEdit1" SerializableAppearanceObject1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(214, Byte), Integer), CType(CType(49, Byte), Integer)) SerializableAppearanceObject1.Options.UseBackColor = True Me.ComboBoxEdit1.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo, "", 20, True, True, False, EditorButtonImageOptions1, New DevExpress.Utils.KeyShortcut(System.Windows.Forms.Keys.None), SerializableAppearanceObject1, SerializableAppearanceObject2, SerializableAppearanceObject3, SerializableAppearanceObject4, "", Nothing, Nothing, DevExpress.Utils.ToolTipAnchor.[Default])}) Me.ComboBoxEdit1.Properties.ButtonsStyle = DevExpress.XtraEditors.Controls.BorderStyles.UltraFlat Me.ComboBoxEdit1.Properties.NullText = "Bitte wählen Sie ein Profil" Me.ComboBoxEdit1.Properties.Padding = New System.Windows.Forms.Padding(5) Me.ComboBoxEdit1.Size = New System.Drawing.Size(591, 30) Me.ComboBoxEdit1.TabIndex = 4 ' 'DocumentViewer1 ' Me.DocumentViewer1.Dock = System.Windows.Forms.DockStyle.Fill Me.DocumentViewer1.FileLoaded = False Me.DocumentViewer1.Location = New System.Drawing.Point(0, 0) Me.DocumentViewer1.Name = "DocumentViewer1" Me.DocumentViewer1.Size = New System.Drawing.Size(404, 508) Me.DocumentViewer1.TabIndex = 0 ' 'GlobixDataset ' Me.GlobixDataset.DataSetName = "GlobixDataset" Me.GlobixDataset.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema ' 'frmGlobix_Index ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(1005, 596) Me.Controls.Add(Me.SplitContainerControl1) Me.Controls.Add(Me.RibbonStatusBar1) Me.Controls.Add(Me.RibbonControl1) Me.IconOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.ZooFlow_G_DevExpress Me.Name = "frmGlobix_Index" Me.Ribbon = Me.RibbonControl1 Me.StatusBar = Me.RibbonStatusBar1 Me.Text = "ZooFlow - Ablage" Me.TopMost = True CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).EndInit() Me.SplitContainerControl1.ResumeLayout(False) Me.Panel3.ResumeLayout(False) Me.Panel1.ResumeLayout(False) CType(Me.ComboBoxEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.GlobixDataset, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() End Sub Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem Friend WithEvents BarButtonItem3 As DevExpress.XtraBars.BarButtonItem Friend WithEvents SkipItem As DevExpress.XtraBars.BarButtonItem Friend WithEvents BarButtonItem5 As DevExpress.XtraBars.BarButtonItem Friend WithEvents checkItemTopMost As DevExpress.XtraBars.BarCheckItem Friend WithEvents SourceDeleteItem As DevExpress.XtraBars.BarCheckItem Friend WithEvents checkItemPreselection As DevExpress.XtraBars.BarCheckItem Friend WithEvents PreviewItem As DevExpress.XtraBars.BarCheckItem Friend WithEvents BarCheckItem2 As DevExpress.XtraBars.BarCheckItem Friend WithEvents labelFilePath As DevExpress.XtraBars.BarStaticItem Friend WithEvents labelError As DevExpress.XtraBars.BarStaticItem Friend WithEvents labelNotice As DevExpress.XtraBars.BarStaticItem Friend WithEvents chkMultiindexing As DevExpress.XtraBars.BarCheckItem Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem Friend WithEvents SplitContainerControl1 As DevExpress.XtraEditors.SplitContainerControl Friend WithEvents Panel1 As Panel Friend WithEvents DocumentViewer1 As Controls.DocumentViewer.DocumentViewer Friend WithEvents BarHeaderItem1 As DevExpress.XtraBars.BarHeaderItem Friend WithEvents pnlIndex As Panel Friend WithEvents Panel3 As Panel Friend WithEvents GlobixDataset As GlobixDataset Friend WithEvents ComboBoxEdit1 As DevExpress.XtraEditors.ComboBoxEdit Friend WithEvents btnAblageFlow As Button End Class