Imports StaxRip.UI

Public Class EventCommandEditor
    Inherits DialogBase

#Region " Designer "
    Friend WithEvents tbName As TextBoxEx
    Friend WithEvents cbEvent As ComboBoxEx
    Friend WithEvents TipProvider As TipProvider
    Friend WithEvents CriteriaControl As CriteriaControl
    Friend WithEvents tbCommand As TextBoxEx
    Friend WithEvents bnCommand As ButtonEx
    Friend WithEvents cmsCommands As ContextMenuStripEx
    Friend WithEvents pgParameters As PropertyGridEx
    Friend WithEvents lParameters As LabelEx
    Friend WithEvents rbMatchAllCriteria As RadioButton
    Friend WithEvents rbMatchAnyCriteria As RadioButton
    Friend WithEvents gbCriteria As GroupBoxEx
    Friend WithEvents gbCommand As GroupBoxEx
    Friend WithEvents gbName As GroupBoxEx
    Friend WithEvents gbEvent As GroupBoxEx
    Friend WithEvents bnCancel As ButtonEx
    Friend WithEvents bnOK As ButtonEx
    Friend WithEvents tlpMain As TableLayoutPanel
    Friend WithEvents FlowLayoutPanel1 As FlowLayoutPanelEx
    Friend WithEvents bnAdd As ButtonEx
    Friend WithEvents FlowLayoutPanel2 As FlowLayoutPanelEx
    Friend WithEvents tlpCommand As TableLayoutPanel
    Private components As System.ComponentModel.IContainer

    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.components = New System.ComponentModel.Container()
        Me.tbName = New TextBoxEx()
        Me.cbEvent = New ComboBoxEx()
        Me.tbCommand = New TextBoxEx()
        Me.bnCommand = New ButtonEx()
        Me.cmsCommands = New ContextMenuStripEx(Me.components)
        Me.CriteriaControl = New CriteriaControl()
        Me.TipProvider = New TipProvider(Me.components)
        Me.rbMatchAllCriteria = New RadioButton()
        Me.rbMatchAnyCriteria = New RadioButton()
        Me.pgParameters = New PropertyGridEx()
        Me.lParameters = New LabelEx()
        Me.gbCriteria = New GroupBoxEx()
        Me.FlowLayoutPanel1 = New FlowLayoutPanelEx()
        Me.bnAdd = New ButtonEx()
        Me.gbCommand = New GroupBoxEx()
        Me.tlpCommand = New TableLayoutPanel()
        Me.gbName = New GroupBoxEx()
        Me.gbEvent = New GroupBoxEx()
        Me.bnCancel = New ButtonEx()
        Me.bnOK = New ButtonEx()
        Me.tlpMain = New TableLayoutPanel()
        Me.FlowLayoutPanel2 = New FlowLayoutPanelEx()
        Me.gbCriteria.SuspendLayout()
        Me.FlowLayoutPanel1.SuspendLayout()
        Me.gbCommand.SuspendLayout()
        Me.tlpCommand.SuspendLayout()
        Me.gbName.SuspendLayout()
        Me.gbEvent.SuspendLayout()
        Me.tlpMain.SuspendLayout()
        Me.FlowLayoutPanel2.SuspendLayout()
        Me.SuspendLayout()
        '
        'tbName
        '
        Me.tbName.Dock = DockStyle.Fill
        Me.tbName.Location = New System.Drawing.Point(15, 63)
        Me.tbName.Margin = New Padding(10)
        Me.tbName.Name = "tbName"
        Me.tbName.Size = New System.Drawing.Size(496, 55)
        Me.tbName.TabIndex = 0
        '
        'cbEvent
        '
        Me.cbEvent.Dock = DockStyle.Fill
        Me.cbEvent.DropDownStyle = ComboBoxStyle.DropDownList
        Me.cbEvent.FormattingEnabled = True
        Me.cbEvent.Location = New System.Drawing.Point(15, 63)
        Me.cbEvent.Margin = New Padding(10)
        Me.cbEvent.Name = "cbEvent"
        Me.cbEvent.Size = New System.Drawing.Size(496, 56)
        Me.cbEvent.Sorted = True
        Me.cbEvent.TabIndex = 0
        '
        'tbCommand
        '
        Me.tbCommand.Anchor = CType((AnchorStyles.Left Or AnchorStyles.Right), AnchorStyles)
        Me.tbCommand.Location = New System.Drawing.Point(0, 7)
        Me.tbCommand.Margin = New Padding(0, 0, 10, 0)
        Me.tbCommand.Name = "tbCommand"
        Me.tbCommand.ReadOnly = True
        Me.tbCommand.Size = New System.Drawing.Size(954, 55)
        Me.tbCommand.TabIndex = 0
        '
        'bnCommand
        '
        Me.bnCommand.Anchor = AnchorStyles.None
        Me.bnCommand.ContextMenuStrip = Me.cmsCommands
        Me.bnCommand.Location = New System.Drawing.Point(964, 0)
        Me.bnCommand.Margin = New Padding(0)
        Me.bnCommand.ShowMenuSymbol = True
        Me.bnCommand.Size = New System.Drawing.Size(70, 70)
        '
        'cmsCommands
        '
        Me.cmsCommands.ImageScalingSize = New System.Drawing.Size(29, 29)
        Me.cmsCommands.Name = "cmsCommands"
        Me.cmsCommands.Size = New System.Drawing.Size(61, 4)
        '
        'CriteriaControl
        '
        Me.CriteriaControl.Anchor = CType((((AnchorStyles.Top Or AnchorStyles.Bottom) _
            Or AnchorStyles.Left) _
            Or AnchorStyles.Right), AnchorStyles)
        Me.CriteriaControl.FlowDirection = FlowDirection.TopDown
        Me.CriteriaControl.Location = New System.Drawing.Point(16, 137)
        Me.CriteriaControl.Margin = New Padding(10)
        Me.CriteriaControl.Name = "CriteriaControl"
        Me.CriteriaControl.Size = New System.Drawing.Size(1034, 56)
        Me.CriteriaControl.TabIndex = 1
        '
        'rbMatchAllCriteria
        '
        Me.rbMatchAllCriteria.Location = New System.Drawing.Point(5, 5)
        Me.rbMatchAllCriteria.Margin = New Padding(5)
        Me.rbMatchAllCriteria.Name = "rbMatchAllCriteria"
        Me.rbMatchAllCriteria.Size = New System.Drawing.Size(253, 70)
        Me.rbMatchAllCriteria.TabIndex = 0
        Me.rbMatchAllCriteria.TabStop = True
        Me.rbMatchAllCriteria.Text = "Match All"
        Me.TipProvider.SetTipText(Me.rbMatchAllCriteria, "Command gets only executed if all criteria is true.")
        '
        'rbMatchAnyCriteria
        '
        Me.rbMatchAnyCriteria.Location = New System.Drawing.Point(268, 5)
        Me.rbMatchAnyCriteria.Margin = New Padding(5)
        Me.rbMatchAnyCriteria.Name = "rbMatchAnyCriteria"
        Me.rbMatchAnyCriteria.Size = New System.Drawing.Size(273, 70)
        Me.rbMatchAnyCriteria.TabIndex = 2
        Me.rbMatchAnyCriteria.TabStop = True
        Me.rbMatchAnyCriteria.Text = "Match Any"
        Me.TipProvider.SetTipText(Me.rbMatchAnyCriteria, "Command gets executed if any criteria is true.")
        '
        'pgParameters
        '
        Me.pgParameters.Anchor = CType((((AnchorStyles.Top Or AnchorStyles.Bottom) _
            Or AnchorStyles.Left) _
            Or AnchorStyles.Right), AnchorStyles)
        Me.pgParameters.HelpVisible = False
        Me.pgParameters.Location = New System.Drawing.Point(14, 166)
        Me.pgParameters.Margin = New Padding(7)
        Me.pgParameters.Name = "pgParameters"
        Me.pgParameters.PropertySort = PropertySort.Alphabetical
        Me.pgParameters.Size = New System.Drawing.Size(1036, 44)
        Me.pgParameters.TabIndex = 2
        Me.pgParameters.ToolbarVisible = False
        '
        'lParameters
        '
        Me.lParameters.AutoSize = True
        Me.lParameters.Location = New System.Drawing.Point(15, 117)
        Me.lParameters.Margin = New Padding(7, 0, 7, 0)
        Me.lParameters.Name = "lParameters"
        Me.lParameters.Size = New System.Drawing.Size(205, 48)
        Me.lParameters.TabIndex = 1
        Me.lParameters.Text = "Parameters:"
        '
        'gbCriteria
        '
        Me.gbCriteria.Anchor = CType((((AnchorStyles.Top Or AnchorStyles.Bottom) _
            Or AnchorStyles.Left) _
            Or AnchorStyles.Right), AnchorStyles)
        Me.tlpMain.SetColumnSpan(Me.gbCriteria, 2)
        Me.gbCriteria.AutoSize = True
        Me.gbCriteria.Controls.Add(Me.FlowLayoutPanel1)
        Me.gbCriteria.Controls.Add(Me.CriteriaControl)
        Me.gbCriteria.Location = New System.Drawing.Point(10, 170)
        Me.gbCriteria.Margin = New Padding(10, 0, 10, 0)
        Me.gbCriteria.Name = "gbCriteria"
        Me.gbCriteria.Padding = New Padding(7)
        Me.gbCriteria.Size = New System.Drawing.Size(1064, 207)
        Me.gbCriteria.TabIndex = 2
        Me.gbCriteria.TabStop = False
        Me.gbCriteria.Text = "Criteria"
        '
        'FlowLayoutPanel1
        '
        Me.FlowLayoutPanel1.AutoScroll = True
        Me.FlowLayoutPanel1.AutoSize = True
        Me.FlowLayoutPanel1.AutoSizeMode = AutoSizeMode.GrowAndShrink
        Me.FlowLayoutPanel1.Controls.Add(Me.rbMatchAllCriteria)
        Me.FlowLayoutPanel1.Controls.Add(Me.rbMatchAnyCriteria)
        Me.FlowLayoutPanel1.Controls.Add(Me.bnAdd)
        Me.FlowLayoutPanel1.Location = New System.Drawing.Point(14, 50)
        Me.FlowLayoutPanel1.Margin = New Padding(5)
        Me.FlowLayoutPanel1.Name = "FlowLayoutPanel1"
        Me.FlowLayoutPanel1.Size = New System.Drawing.Size(756, 80)
        Me.FlowLayoutPanel1.TabIndex = 3
        '
        'bnAdd
        '
        Me.bnAdd.Location = New System.Drawing.Point(551, 5)
        Me.bnAdd.Margin = New Padding(5)
        Me.bnAdd.Size = New System.Drawing.Size(200, 70)
        Me.bnAdd.Text = "Add"
        '
        'gbCommand
        '
        Me.gbCommand.Anchor = CType((((AnchorStyles.Top Or AnchorStyles.Bottom) _
            Or AnchorStyles.Left) _
            Or AnchorStyles.Right), AnchorStyles)
        Me.tlpMain.SetColumnSpan(Me.gbCommand, 2)
        Me.gbCommand.Controls.Add(Me.tlpCommand)
        Me.gbCommand.Controls.Add(Me.pgParameters)
        Me.gbCommand.Controls.Add(Me.lParameters)
        Me.gbCommand.Location = New System.Drawing.Point(10, 377)
        Me.gbCommand.Margin = New Padding(10, 0, 10, 0)
        Me.gbCommand.Name = "gbCommand"
        Me.gbCommand.Padding = New Padding(7)
        Me.gbCommand.Size = New System.Drawing.Size(1064, 224)
        Me.gbCommand.TabIndex = 4
        Me.gbCommand.TabStop = False
        Me.gbCommand.Text = "Command"
        '
        'tlpCommand
        '
        Me.tlpCommand.Anchor = CType(((AnchorStyles.Top Or AnchorStyles.Left) _
            Or AnchorStyles.Right), AnchorStyles)
        Me.tlpCommand.ColumnCount = 2
        Me.tlpCommand.ColumnStyles.Add(New ColumnStyle(SizeType.Percent, 50.0!))
        Me.tlpCommand.ColumnStyles.Add(New ColumnStyle())
        Me.tlpCommand.Controls.Add(Me.bnCommand, 1, 0)
        Me.tlpCommand.Controls.Add(Me.tbCommand, 0, 0)
        Me.tlpCommand.Location = New System.Drawing.Point(16, 49)
        Me.tlpCommand.Margin = New Padding(10, 0, 10, 0)
        Me.tlpCommand.Name = "tlpCommand"
        Me.tlpCommand.RowCount = 1
        Me.tlpCommand.RowStyles.Add(New RowStyle(SizeType.Percent, 50.0!))
        Me.tlpCommand.Size = New System.Drawing.Size(1034, 70)
        Me.tlpCommand.TabIndex = 4
        '
        'gbName
        '
        Me.gbName.Anchor = CType((AnchorStyles.Left Or AnchorStyles.Right), AnchorStyles)
        Me.gbName.Controls.Add(Me.tbName)
        Me.gbName.Location = New System.Drawing.Point(10, 10)
        Me.gbName.Margin = New Padding(10, 10, 6, 10)
        Me.gbName.Name = "gbName"
        Me.gbName.Padding = New Padding(15)
        Me.gbName.Size = New System.Drawing.Size(526, 150)
        Me.gbName.TabIndex = 1
        Me.gbName.TabStop = False
        Me.gbName.Text = "Name"
        '
        'gbEvent
        '
        Me.gbEvent.Anchor = CType((AnchorStyles.Left Or AnchorStyles.Right), AnchorStyles)
        Me.gbEvent.Controls.Add(Me.cbEvent)
        Me.gbEvent.Location = New System.Drawing.Point(548, 10)
        Me.gbEvent.Margin = New Padding(6, 10, 10, 10)
        Me.gbEvent.Name = "gbEvent"
        Me.gbEvent.Padding = New Padding(15)
        Me.gbEvent.Size = New System.Drawing.Size(526, 150)
        Me.gbEvent.TabIndex = 3
        Me.gbEvent.TabStop = False
        Me.gbEvent.Text = "Event"
        '
        'bnCancel
        '
        Me.bnCancel.Anchor = CType((AnchorStyles.Bottom Or AnchorStyles.Right), AnchorStyles)
        Me.bnCancel.DialogResult = DialogResult.Cancel
        Me.bnCancel.Location = New System.Drawing.Point(270, 10)
        Me.bnCancel.Margin = New Padding(10)
        Me.bnCancel.Size = New System.Drawing.Size(250, 70)
        Me.bnCancel.Text = "Cancel"
        '
        'bnOK
        '
        Me.bnOK.Anchor = CType((AnchorStyles.Bottom Or AnchorStyles.Right), AnchorStyles)
        Me.bnOK.DialogResult = DialogResult.OK
        Me.bnOK.Location = New System.Drawing.Point(10, 10)
        Me.bnOK.Margin = New Padding(10)
        Me.bnOK.Size = New System.Drawing.Size(250, 70)
        Me.bnOK.Text = "OK"
        '
        'tlpMain
        '
        Me.tlpMain.ColumnCount = 2
        Me.tlpMain.ColumnStyles.Add(New ColumnStyle(SizeType.Percent, 50.0!))
        Me.tlpMain.ColumnStyles.Add(New ColumnStyle(SizeType.Percent, 50.0!))
        Me.tlpMain.Controls.Add(Me.gbName, 0, 0)
        Me.tlpMain.Controls.Add(Me.gbEvent, 1, 0)
        Me.tlpMain.Controls.Add(Me.gbCriteria, 0, 1)
        Me.tlpMain.Controls.Add(Me.gbCommand, 0, 2)
        Me.tlpMain.Controls.Add(Me.FlowLayoutPanel2, 1, 3)
        Me.tlpMain.Dock = DockStyle.Fill
        Me.tlpMain.Location = New System.Drawing.Point(0, 0)
        Me.tlpMain.Margin = New Padding(5)
        Me.tlpMain.Name = "tlpMain"
        Me.tlpMain.RowCount = 4
        Me.tlpMain.RowStyles.Add(New RowStyle())
        Me.tlpMain.RowStyles.Add(New RowStyle(SizeType.Percent, 48.0!))
        Me.tlpMain.RowStyles.Add(New RowStyle(SizeType.Percent, 52.0!))
        Me.tlpMain.RowStyles.Add(New RowStyle())
        Me.tlpMain.Size = New System.Drawing.Size(1084, 704)
        Me.tlpMain.TabIndex = 6
        '
        'FlowLayoutPanel2
        '
        Me.FlowLayoutPanel2.Anchor = AnchorStyles.Right
        Me.FlowLayoutPanel2.AutoSize = True
        Me.FlowLayoutPanel2.AutoSizeMode = AutoSizeMode.GrowAndShrink
        Me.FlowLayoutPanel2.Controls.Add(Me.bnOK)
        Me.FlowLayoutPanel2.Controls.Add(Me.bnCancel)
        Me.FlowLayoutPanel2.Location = New System.Drawing.Point(554, 607)
        Me.FlowLayoutPanel2.Margin = New Padding(0, 6, 0, 6)
        Me.FlowLayoutPanel2.Name = "FlowLayoutPanel2"
        Me.FlowLayoutPanel2.Size = New System.Drawing.Size(530, 90)
        Me.FlowLayoutPanel2.TabIndex = 9
        '
        'EventCommandEditor
        '
        Me.AcceptButton = Me.bnOK
        Me.AutoScaleDimensions = New System.Drawing.SizeF(288.0!, 288.0!)
        Me.AutoScaleMode = AutoScaleMode.Dpi
        Me.CancelButton = Me.bnCancel
        Me.ClientSize = New System.Drawing.Size(1084, 704)
        Me.Controls.Add(Me.tlpMain)
        Me.FormBorderStyle = FormBorderStyle.Sizable
        Me.KeyPreview = True
        Me.Margin = New Padding(9)
        Me.Name = "EventCommandEditor"
        Me.Text = $"Event Command Editor - {g.DefaultCommands.GetApplicationDetails()}"
        Me.gbCriteria.ResumeLayout(False)
        Me.gbCriteria.PerformLayout()
        Me.FlowLayoutPanel1.ResumeLayout(False)
        Me.gbCommand.ResumeLayout(False)
        Me.gbCommand.PerformLayout()
        Me.tlpCommand.ResumeLayout(False)
        Me.tlpCommand.PerformLayout()
        Me.gbName.ResumeLayout(False)
        Me.gbName.PerformLayout()
        Me.gbEvent.ResumeLayout(False)
        Me.tlpMain.ResumeLayout(False)
        Me.tlpMain.PerformLayout()
        Me.FlowLayoutPanel2.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private GridTypeDescriptor As New GridTypeDescriptor
    Private CommandParameters As CommandParameters
    Private EventCommandValue As EventCommand

    Sub New(ev As EventCommand)
        MyBase.New()
        InitializeComponent()
        IsComposited = False
        ScaleClientSize(50, 33)
        EventCommandValue = ev
        tbName.Text = EventCommandValue.Name

        cbEvent.Items.AddRange(ListBag(Of ApplicationEvent).GetBagsForEnumType)
        ListBag(Of ApplicationEvent).SelectItem(cbEvent, EventCommandValue.Event)

        rbMatchAllCriteria.Checked = Not ev.OrOnly
        rbMatchAnyCriteria.Checked = ev.OrOnly

        Dim allCriteria As New List(Of Criteria)

        For Each m In Macro.GetMacros(True, False, True, True, False)
            Dim c = Criteria.Create(m.Type)
            c.Name = m.FriendlyName
            c.Description = m.Description
            c.Macro = m.Name
            allCriteria.Add(c)
        Next

        allCriteria.Sort(New Comparer(Of Criteria)(NameOf(Criteria.Name)))

        CriteriaControl.AllCriteria = allCriteria
        CriteriaControl.CriteriaList = EventCommandValue.CriteriaList

        If EventCommandValue.CommandParameters IsNot Nothing Then
            CommandParameters = ObjectHelp.GetCopy(EventCommandValue.CommandParameters)
        End If

        SetCommandParameters(CommandParameters)
        Command.PopulateCommandMenu(cmsCommands.Items, New List(Of Command)(g.MainForm.CustomMainMenu.CommandManager.Commands.Values), AddressOf MenuClick)

        For Each i As ToolStripMenuItem In cmsCommands.Items
            If i.Text = "Dynamic" Then
                i.Visible = False
            End If
        Next

        TipProvider.SetTip("Parameters used to execute the command.", pgParameters, lParameters)
        TipProvider.SetTip("Criteria can be defined optionally to execute the command only if the criteria is matched.", CriteriaControl, gbCriteria)
        TipProvider.SetTip("Command to be executed.", tbCommand, gbCommand)
        TipProvider.SetTip("The event on which the command gets executed.", cbEvent, gbEvent)
        TipProvider.SetTip("Name of the Event Command.", tbName, gbName)

        ApplyTheme()

        AddHandler ThemeManager.CurrentThemeChanged, AddressOf OnThemeChanged
    End Sub

    Protected Overrides Sub Dispose(disposing As Boolean)
        RemoveHandler ThemeManager.CurrentThemeChanged, AddressOf OnThemeChanged
        components?.Dispose()
        MyBase.Dispose(disposing)
    End Sub

    Sub OnThemeChanged(theme As Theme)
        ApplyTheme(theme)
    End Sub

    Sub ApplyTheme()
        ApplyTheme(ThemeManager.CurrentTheme)
    End Sub

    Sub ApplyTheme(theme As Theme)
        If DesignHelp.IsDesignMode Then
            Exit Sub
        End If

        BackColor = theme.General.BackColor
    End Sub

    Sub MenuClick(c As Command)
        CommandParameters = New CommandParameters(c.MethodInfo.Name, c.GetDefaultParameters.ToArray)
        SetCommandParameters(CommandParameters)
    End Sub

    Sub SetCommandParameters(cp As CommandParameters)
        If cp Is Nothing Then
            pgParameters.Visible = False
            lParameters.Visible = False
            Exit Sub
        End If

        Dim cm = g.MainForm.CustomMainMenu.CommandManager

        If Not cm.HasCommand(cp.MethodName) Then
            pgParameters.Visible = False
            lParameters.Visible = False
            Exit Sub
        End If

        Dim c = g.MainForm.CustomMainMenu.CommandManager.GetCommand(cp.MethodName)
        tbCommand.Text = cp.MethodName

        If cp.Parameters Is Nothing OrElse cp.Parameters.Count = 0 Then
            pgParameters.Visible = False
            lParameters.Visible = False
            Exit Sub
        End If

        Dim mi = c.MethodInfo

        If mi Is Nothing Then
            pgParameters.Visible = False
            lParameters.Visible = False
            Exit Sub
        End If

        pgParameters.Visible = True
        lParameters.Visible = True

        GridTypeDescriptor.Items.Clear()

        Dim params = mi.GetParameters

        For i = 0 To params.Length - 1
            Dim gp As New GridProperty With {
                .Name = DispNameAttribute.GetValue(params(i).GetCustomAttributes(False))
            }

            If gp.Name Is Nothing Then
                gp.Name = params(i).Name.ToTitleCase
            End If

            gp.Value = c.FixParameters(cp.Parameters)(i)
            gp.Description = DescriptionAttributeHelp.GetDescription(params(i).GetCustomAttributes(False))
            gp.TypeEditor = EditorAttributeHelp.GetEditor(params(i).GetCustomAttributes(False))

            GridTypeDescriptor.Add(gp)
        Next

        pgParameters.SelectedObject = GridTypeDescriptor
        SetSplitter()
    End Sub

    Sub EventCommandEditor_FormClosed() Handles Me.FormClosed
        If DialogResult = DialogResult.OK Then
            EventCommandValue.Name = tbName.Text
            EventCommandValue.Event = ListBag(Of ApplicationEvent).GetValue(cbEvent)
            EventCommandValue.CriteriaList = CriteriaControl.CriteriaList
            EventCommandValue.CommandParameters = CommandParameters
            EventCommandValue.OrOnly = rbMatchAnyCriteria.Checked
        End If
    End Sub

    Sub EventCommandEditor_HelpRequested() Handles Me.HelpRequested
        g.ShowWikiPage("Commands")
    End Sub

    Sub pgParameters_PropertyValueChanged(s As Object, e As PropertyValueChangedEventArgs) Handles pgParameters.PropertyValueChanged
        CommandParameters.Parameters.Clear()

        For Each i As DictionaryEntry In GridTypeDescriptor.Items
            CommandParameters.Parameters.Add(DirectCast(i.Value, GridProperty).Value)
        Next
    End Sub

    Sub EventCommandEditor_Shown() Handles Me.Shown
        SetSplitter()
    End Sub

    Sub EventCommandEditor_SizeChanged() Handles Me.SizeChanged
        SetSplitter()
    End Sub

    Sub SetSplitter()
        pgParameters.MoveSplitter(pgParameters.Width \ 3)
    End Sub

    Sub bnAdd_Click(sender As Object, e As EventArgs) Handles bnAdd.Click
        CriteriaControl.AddItem(Nothing)
    End Sub
End Class