Partial Class DateYearCriteriaVC _ Public Sub New(ByVal Container As System.ComponentModel.IContainer) MyClass.New() 'Required for Windows.Forms Class Composition Designer support Container.Add(Me) End Sub 'Component overrides dispose to clean up the component list. _ Protected Overrides Sub Dispose(ByVal disposing As Boolean) If disposing AndAlso components IsNot Nothing Then components.Dispose() End If MyBase.Dispose(disposing) End Sub 'Required by the Component Designer Private components As System.ComponentModel.IContainer 'NOTE: The following procedure is required by the Component Designer 'It can be modified using the Component Designer. 'Do not modify it using the code editor. _ Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() Dim ChoiceActionItem1 As DevExpress.ExpressApp.Actions.ChoiceActionItem = New DevExpress.ExpressApp.Actions.ChoiceActionItem() Dim ChoiceActionItem2 As DevExpress.ExpressApp.Actions.ChoiceActionItem = New DevExpress.ExpressApp.Actions.ChoiceActionItem() Dim ChoiceActionItem3 As DevExpress.ExpressApp.Actions.ChoiceActionItem = New DevExpress.ExpressApp.Actions.ChoiceActionItem() Dim ChoiceActionItem4 As DevExpress.ExpressApp.Actions.ChoiceActionItem = New DevExpress.ExpressApp.Actions.ChoiceActionItem() Dim ChoiceActionItem5 As DevExpress.ExpressApp.Actions.ChoiceActionItem = New DevExpress.ExpressApp.Actions.ChoiceActionItem() Dim ChoiceActionItem6 As DevExpress.ExpressApp.Actions.ChoiceActionItem = New DevExpress.ExpressApp.Actions.ChoiceActionItem() Me.aDateYearFilter = New DevExpress.ExpressApp.Actions.SingleChoiceAction(Me.components) ' 'aDateYearFilter ' Me.aDateYearFilter.Caption = "aDate Year Filter" Me.aDateYearFilter.ConfirmationMessage = Nothing Me.aDateYearFilter.Id = "aDateYearFilter" ChoiceActionItem1.Caption = "CurrentYear" ChoiceActionItem1.ImageName = Nothing ChoiceActionItem1.Shortcut = Nothing ChoiceActionItem1.ToolTip = Nothing ChoiceActionItem2.Caption = "PrevYear" ChoiceActionItem2.ImageName = Nothing ChoiceActionItem2.Shortcut = Nothing ChoiceActionItem2.ToolTip = Nothing ChoiceActionItem3.Caption = "Prev2Year" ChoiceActionItem3.ImageName = Nothing ChoiceActionItem3.Shortcut = Nothing ChoiceActionItem3.ToolTip = Nothing ChoiceActionItem4.Caption = "Prev3Year" ChoiceActionItem4.ImageName = Nothing ChoiceActionItem4.Shortcut = Nothing ChoiceActionItem4.ToolTip = Nothing ChoiceActionItem5.Caption = "Prev4Year" ChoiceActionItem5.ImageName = Nothing ChoiceActionItem5.Shortcut = Nothing ChoiceActionItem5.ToolTip = Nothing ChoiceActionItem6.Caption = "All" ChoiceActionItem6.ImageName = Nothing ChoiceActionItem6.Shortcut = Nothing ChoiceActionItem6.ToolTip = Nothing Me.aDateYearFilter.Items.Add(ChoiceActionItem1) Me.aDateYearFilter.Items.Add(ChoiceActionItem2) Me.aDateYearFilter.Items.Add(ChoiceActionItem3) Me.aDateYearFilter.Items.Add(ChoiceActionItem4) Me.aDateYearFilter.Items.Add(ChoiceActionItem5) Me.aDateYearFilter.Items.Add(ChoiceActionItem6) Me.aDateYearFilter.TargetViewType = DevExpress.ExpressApp.ViewType.ListView Me.aDateYearFilter.ToolTip = Nothing Me.aDateYearFilter.TypeOfView = GetType(DevExpress.ExpressApp.ListView) End Sub Friend WithEvents aDateYearFilter As DevExpress.ExpressApp.Actions.SingleChoiceAction End Class