home *** CD-ROM | disk | FTP | other *** search
Wrap
Text File | 2004-04-09 | 75.6 KB | 1,348 lines
Imports System Imports System.Drawing Imports System.Collections Imports System.ComponentModel Imports System.Windows.Forms Imports NETXP.Controls.Bars Imports NETXP.Library Namespace Bars Public Class Form1 Inherits System.Windows.Forms.Form Private WithEvents commandBar1 As NETXP.Controls.Bars.CommandBar Private commandBarItem1 As NETXP.Controls.Bars.CommandBarButtonItem Private commandBarItem2 As NETXP.Controls.Bars.CommandBarButtonItem Private commandBarItem3 As NETXP.Controls.Bars.CommandBarButtonItem Private WithEvents commandBarItem9 As NETXP.Controls.Bars.CommandBarButtonItem Private commandBarItem10 As NETXP.Controls.Bars.CommandBarButtonItem Private WithEvents commandBar2 As NETXP.Controls.Bars.CommandBar Private commandBarItem11 As NETXP.Controls.Bars.CommandBarButtonItem Private commandBarItem12 As NETXP.Controls.Bars.CommandBarButtonItem Private commandBarItem13 As NETXP.Controls.Bars.CommandBarButtonItem Private commandBarItem14 As NETXP.Controls.Bars.CommandBarButtonItem Private commandBarItem15 As NETXP.Controls.Bars.CommandBarSeparatorItem Private WithEvents commandBarItem16 As NETXP.Controls.Bars.CommandBarButtonItem Private WithEvents commandBarItem17 As NETXP.Controls.Bars.CommandBarButtonItem Private commandBarItem18 As NETXP.Controls.Bars.CommandBarSeparatorItem Private commandBarItem19 As NETXP.Controls.Bars.CommandBarButtonItem Private WithEvents commandBarItem20 As NETXP.Controls.Bars.CommandBarButtonItem Private commandBarItem23 As NETXP.Controls.Bars.CommandBarButtonItem Private commandBarItem22 As NETXP.Controls.Bars.CommandBarButtonItem Private commandBarItem24 As NETXP.Controls.Bars.CommandBarButtonItem Private commandBarItem25 As NETXP.Controls.Bars.CommandBarButtonItem Private commandBarItem26 As NETXP.Controls.Bars.CommandBarButtonItem Private commandBarItem27 As NETXP.Controls.Bars.CommandBarButtonItem Private commandBarItem28 As NETXP.Controls.Bars.CommandBarButtonItem Private commandBarItem29 As NETXP.Controls.Bars.CommandBarButtonItem Private commandBarItem30 As NETXP.Controls.Bars.CommandBarButtonItem Private contextMenu2 As NETXP.Controls.Bars.CommandContextMenu Private commandBarItem31 As NETXP.Controls.Bars.CommandBarButtonItem Private commandBarItem32 As NETXP.Controls.Bars.CommandBarButtonItem Private commandBarItem33 As NETXP.Controls.Bars.CommandBarButtonItem Private commandBarItem34 As NETXP.Controls.Bars.CommandBarButtonItem Private commandBarItem35 As NETXP.Controls.Bars.CommandBarButtonItem Private commandBarItem37 As NETXP.Controls.Bars.CommandBarSeparatorItem Private WithEvents commandBarItem38 As NETXP.Controls.Bars.CommandBarButtonItem Private commandBarItem39 As NETXP.Controls.Bars.CommandBarButtonItem Private commandBarItem40 As NETXP.Controls.Bars.CommandBarButtonItem Private commandBarItem41 As NETXP.Controls.Bars.CommandBarButtonItem Private commandBarItem21 As NETXP.Controls.Bars.CommandBarButtonItem Private commandBarItem42 As NETXP.Controls.Bars.CommandBarButtonItem Private commandBarItem43 As NETXP.Controls.Bars.CommandBarButtonItem Private commandBarItem44 As NETXP.Controls.Bars.CommandBarButtonItem Private commandBarItem45 As NETXP.Controls.Bars.CommandBarSeparatorItem Private commandBarItem46 As NETXP.Controls.Bars.CommandBarButtonItem Private commandBarItem47 As NETXP.Controls.Bars.CommandBarButtonItem Private commandBarItem48 As NETXP.Controls.Bars.CommandBarButtonItem Private commandBarItem49 As NETXP.Controls.Bars.CommandBarSeparatorItem Private commandBarItem50 As NETXP.Controls.Bars.CommandBarButtonItem Private commandBarItem51 As NETXP.Controls.Bars.CommandBarButtonItem Private commandBarItem52 As NETXP.Controls.Bars.CommandBarButtonItem Private commandBarItem53 As NETXP.Controls.Bars.CommandBarButtonItem Private commandBarItem54 As NETXP.Controls.Bars.CommandBarButtonItem Private commandBarItem55 As NETXP.Controls.Bars.CommandBarSeparatorItem Private commandBarItem56 As NETXP.Controls.Bars.CommandBarButtonItem Private commandBarItem57 As NETXP.Controls.Bars.CommandBarButtonItem Private commandBarItem4 As NETXP.Controls.Bars.CommandBarButtonItem Private commandBarItem5 As NETXP.Controls.Bars.CommandBarButtonItem Private commandBarItem6 As NETXP.Controls.Bars.CommandBarButtonItem Private commandBarItem7 As NETXP.Controls.Bars.CommandBarSeparatorItem Private commandBarItem8 As NETXP.Controls.Bars.CommandBarButtonItem Private commandBarItem58 As NETXP.Controls.Bars.CommandBarSeparatorItem Private commandBarItem59 As NETXP.Controls.Bars.CommandBarButtonItem Private commandBarItem60 As NETXP.Controls.Bars.CommandBarButtonItem Private WithEvents commandBarItem61 As NETXP.Controls.Bars.CommandBarButtonItem Private WithEvents commandBarItem62 As NETXP.Controls.Bars.CommandBarButtonItem Private commandBarItem63 As NETXP.Controls.Bars.CommandBarSeparatorItem Private commandBarItem64 As NETXP.Controls.Bars.CommandBarButtonItem Private commandBarItem65 As NETXP.Controls.Bars.CommandBarSeparatorItem Private commandBarItem66 As NETXP.Controls.Bars.CommandBarButtonItem Private commandBarItem67 As NETXP.Controls.Bars.CommandBarButtonItem Private commandBarItem68 As NETXP.Controls.Bars.CommandBarButtonItem Private WithEvents commandBarItem69 As NETXP.Controls.Bars.CommandBarButtonItem Private WithEvents commandBarItem70 As NETXP.Controls.Bars.CommandBarButtonItem Private commandBarItem71 As NETXP.Controls.Bars.CommandBarSeparatorItem Private WithEvents commandBarItem72 As NETXP.Controls.Bars.CommandBarButtonItem Private WithEvents commandBarItem73 As NETXP.Controls.Bars.CommandBarButtonItem Private WithEvents commandBarItem74 As NETXP.Controls.Bars.CommandBarButtonItem Private WithEvents commandBarItem75 As NETXP.Controls.Bars.CommandBarButtonItem Private commandBarItem76 As NETXP.Controls.Bars.CommandBarButtonItem Private commandBarItem77 As NETXP.Controls.Bars.CommandBarButtonItem Private commandBarItem78 As NETXP.Controls.Bars.CommandBarSeparatorItem Private commandBarItem79 As NETXP.Controls.Bars.CommandBarButtonItem Private commandBarItem80 As NETXP.Controls.Bars.CommandBarSeparatorItem Private WithEvents commandBarItem81 As NETXP.Controls.Bars.CommandBarButtonItem Private commandBarManager1 As NETXP.Controls.Bars.CommandBarManager Private commandBarDockLeft As NETXP.Controls.Bars.CommandBarDock Private commandBarDockRight As NETXP.Controls.Bars.CommandBarDock Private commandBarDockTop As NETXP.Controls.Bars.CommandBarDock Private commandBarLabelItem1 As NETXP.Controls.Bars.CommandBarLabelItem Private commandBarSeparatorItem1 As NETXP.Controls.Bars.CommandBarSeparatorItem Private commandBarComboItem1 As NETXP.Controls.Bars.CommandBarComboItem Private WithEvents commandBar3 As NETXP.Controls.Bars.CommandBar Private commandBarButtonItem1 As NETXP.Controls.Bars.CommandBarButtonItem Private commandBarButtonItem2 As NETXP.Controls.Bars.CommandBarButtonItem Private commandBarButtonItem3 As NETXP.Controls.Bars.CommandBarButtonItem Private commandBarButtonItem4 As NETXP.Controls.Bars.CommandBarButtonItem Private commandBarButtonItem5 As NETXP.Controls.Bars.CommandBarButtonItem Private commandBarButtonItem6 As NETXP.Controls.Bars.CommandBarButtonItem Private commandBarSeparatorItem2 As NETXP.Controls.Bars.CommandBarSeparatorItem Private commandBarSeparatorItem3 As NETXP.Controls.Bars.CommandBarSeparatorItem Private commandBarSeparatorItem4 As NETXP.Controls.Bars.CommandBarSeparatorItem Private commandBarSeparatorItem5 As NETXP.Controls.Bars.CommandBarSeparatorItem Private commandBarComboItem2 As NETXP.Controls.Bars.CommandBarComboItem Private commandBarButtonItem7 As NETXP.Controls.Bars.CommandBarButtonItem Private commandBarButtonItem8 As NETXP.Controls.Bars.CommandBarButtonItem Private commandBarButtonItem9 As NETXP.Controls.Bars.CommandBarButtonItem Private commandBarButtonItem10 As NETXP.Controls.Bars.CommandBarButtonItem Private commandBarButtonItem11 As NETXP.Controls.Bars.CommandBarButtonItem Private WithEvents commandBar4 As NETXP.Controls.Bars.CommandBar Private commandBarComboItem3 As NETXP.Controls.Bars.CommandBarComboItem Private commandBarLabelItem2 As NETXP.Controls.Bars.CommandBarLabelItem Private commandBarButtonItem12 As NETXP.Controls.Bars.CommandBarButtonItem Private WithEvents statusBar1 As NETXP.Controls.Bars.StatusBar Private statusBarPanel1 As System.Windows.Forms.StatusBarPanel Private statusBarPanel2 As System.Windows.Forms.StatusBarPanel Private progressPanel1 As NETXP.Controls.Bars.ProgressPanel Private WithEvents listBar1 As NETXP.Controls.Bars.ListBar Private listBarGroup1 As NETXP.Controls.Bars.ListBarGroup Private listBarGroup2 As NETXP.Controls.Bars.ListBarGroup Private listBarGroup3 As NETXP.Controls.Bars.ListBarGroup Private listBarGroup4 As NETXP.Controls.Bars.ListBarGroup Private listBarGroup5 As NETXP.Controls.Bars.ListBarGroup Private listBarItem1 As NETXP.Controls.Bars.ListBarItem Private listBarItem2 As NETXP.Controls.Bars.ListBarItem Private listBarItem3 As NETXP.Controls.Bars.ListBarItem Private listBarItem4 As NETXP.Controls.Bars.ListBarItem Private statusMessages1 As NETXP.Components.Extenders.StatusMessages Private components As System.ComponentModel.IContainer Private WithEvents commandBarItem69B As NETXP.Controls.Bars.CommandBarButtonItem Private commandBarDockBottom As NETXP.Controls.Bars.CommandBarDock Public Sub New() InitializeComponent() End Sub Protected Overrides Sub Dispose(ByVal disposing As Boolean) MyBase.Dispose(disposing) End Sub #Region "Windows Form Designer generated code" Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(Form1)) Me.commandBar1 = New NETXP.Controls.Bars.CommandBar Me.commandBarItem1 = New NETXP.Controls.Bars.CommandBarButtonItem Me.commandBarItem3 = New NETXP.Controls.Bars.CommandBarButtonItem Me.commandBarItem20 = New NETXP.Controls.Bars.CommandBarButtonItem Me.commandBarItem37 = New NETXP.Controls.Bars.CommandBarSeparatorItem Me.commandBarItem38 = New NETXP.Controls.Bars.CommandBarButtonItem Me.commandBarItem39 = New NETXP.Controls.Bars.CommandBarButtonItem Me.commandBarItem40 = New NETXP.Controls.Bars.CommandBarButtonItem Me.commandBarItem41 = New NETXP.Controls.Bars.CommandBarButtonItem Me.commandBarItem21 = New NETXP.Controls.Bars.CommandBarButtonItem Me.commandBarItem42 = New NETXP.Controls.Bars.CommandBarButtonItem Me.commandBarItem43 = New NETXP.Controls.Bars.CommandBarButtonItem Me.commandBarItem44 = New NETXP.Controls.Bars.CommandBarButtonItem Me.commandBarItem45 = New NETXP.Controls.Bars.CommandBarSeparatorItem Me.commandBarItem46 = New NETXP.Controls.Bars.CommandBarButtonItem Me.commandBarItem47 = New NETXP.Controls.Bars.CommandBarButtonItem Me.commandBarItem48 = New NETXP.Controls.Bars.CommandBarButtonItem Me.commandBarItem49 = New NETXP.Controls.Bars.CommandBarSeparatorItem Me.commandBarItem50 = New NETXP.Controls.Bars.CommandBarButtonItem Me.commandBarItem51 = New NETXP.Controls.Bars.CommandBarButtonItem Me.commandBarItem52 = New NETXP.Controls.Bars.CommandBarButtonItem Me.commandBarItem53 = New NETXP.Controls.Bars.CommandBarButtonItem Me.commandBarItem54 = New NETXP.Controls.Bars.CommandBarButtonItem Me.commandBarItem55 = New NETXP.Controls.Bars.CommandBarSeparatorItem Me.commandBarItem56 = New NETXP.Controls.Bars.CommandBarButtonItem Me.commandBarItem57 = New NETXP.Controls.Bars.CommandBarButtonItem Me.commandBarItem9 = New NETXP.Controls.Bars.CommandBarButtonItem Me.commandBarItem33 = New NETXP.Controls.Bars.CommandBarButtonItem Me.commandBarItem4 = New NETXP.Controls.Bars.CommandBarButtonItem Me.commandBarItem5 = New NETXP.Controls.Bars.CommandBarButtonItem Me.commandBarItem6 = New NETXP.Controls.Bars.CommandBarButtonItem Me.commandBarItem7 = New NETXP.Controls.Bars.CommandBarSeparatorItem Me.commandBarItem8 = New NETXP.Controls.Bars.CommandBarButtonItem Me.commandBarItem58 = New NETXP.Controls.Bars.CommandBarSeparatorItem Me.commandBarItem59 = New NETXP.Controls.Bars.CommandBarButtonItem Me.commandBarItem34 = New NETXP.Controls.Bars.CommandBarButtonItem Me.commandBarItem60 = New NETXP.Controls.Bars.CommandBarButtonItem Me.commandBarItem68 = New NETXP.Controls.Bars.CommandBarButtonItem Me.commandBarItem69 = New NETXP.Controls.Bars.CommandBarButtonItem Me.commandBarItem69B = New NETXP.Controls.Bars.CommandBarButtonItem Me.commandBarItem70 = New NETXP.Controls.Bars.CommandBarButtonItem Me.commandBarItem71 = New NETXP.Controls.Bars.CommandBarSeparatorItem Me.commandBarItem72 = New NETXP.Controls.Bars.CommandBarButtonItem Me.commandBarItem61 = New NETXP.Controls.Bars.CommandBarButtonItem Me.commandBarItem62 = New NETXP.Controls.Bars.CommandBarButtonItem Me.commandBarItem63 = New NETXP.Controls.Bars.CommandBarSeparatorItem Me.commandBarItem64 = New NETXP.Controls.Bars.CommandBarButtonItem Me.commandBarItem73 = New NETXP.Controls.Bars.CommandBarButtonItem Me.commandBarItem74 = New NETXP.Controls.Bars.CommandBarButtonItem Me.commandBarItem75 = New NETXP.Controls.Bars.CommandBarButtonItem Me.commandBarItem65 = New NETXP.Controls.Bars.CommandBarSeparatorItem Me.commandBarItem66 = New NETXP.Controls.Bars.CommandBarButtonItem Me.commandBarItem67 = New NETXP.Controls.Bars.CommandBarButtonItem Me.commandBarItem35 = New NETXP.Controls.Bars.CommandBarButtonItem Me.commandBarItem76 = New NETXP.Controls.Bars.CommandBarButtonItem Me.commandBarItem77 = New NETXP.Controls.Bars.CommandBarButtonItem Me.commandBarItem78 = New NETXP.Controls.Bars.CommandBarSeparatorItem Me.commandBarItem79 = New NETXP.Controls.Bars.CommandBarButtonItem Me.commandBarItem2 = New NETXP.Controls.Bars.CommandBarButtonItem Me.commandBarItem81 = New NETXP.Controls.Bars.CommandBarButtonItem Me.commandBarItem80 = New NETXP.Controls.Bars.CommandBarSeparatorItem Me.commandBarItem10 = New NETXP.Controls.Bars.CommandBarButtonItem Me.commandBar2 = New NETXP.Controls.Bars.CommandBar Me.commandBarItem12 = New NETXP.Controls.Bars.CommandBarButtonItem Me.commandBarItem22 = New NETXP.Controls.Bars.CommandBarButtonItem Me.commandBarItem13 = New NETXP.Controls.Bars.CommandBarButtonItem Me.commandBarItem29 = New NETXP.Controls.Bars.CommandBarButtonItem Me.commandBarItem14 = New NETXP.Controls.Bars.CommandBarButtonItem Me.commandBarItem15 = New NETXP.Controls.Bars.CommandBarSeparatorItem Me.commandBarItem16 = New NETXP.Controls.Bars.CommandBarButtonItem Me.commandBarItem17 = New NETXP.Controls.Bars.CommandBarButtonItem Me.commandBarItem18 = New NETXP.Controls.Bars.CommandBarSeparatorItem Me.commandBarLabelItem1 = New NETXP.Controls.Bars.CommandBarLabelItem Me.commandBarItem19 = New NETXP.Controls.Bars.CommandBarButtonItem Me.commandBarItem24 = New NETXP.Controls.Bars.CommandBarButtonItem Me.commandBarItem25 = New NETXP.Controls.Bars.CommandBarButtonItem Me.commandBarItem26 = New NETXP.Controls.Bars.CommandBarButtonItem Me.commandBarItem27 = New NETXP.Controls.Bars.CommandBarButtonItem Me.commandBarItem28 = New NETXP.Controls.Bars.CommandBarButtonItem Me.commandBarSeparatorItem1 = New NETXP.Controls.Bars.CommandBarSeparatorItem Me.commandBarComboItem1 = New NETXP.Controls.Bars.CommandBarComboItem Me.commandBarItem23 = New NETXP.Controls.Bars.CommandBarButtonItem Me.commandBarItem11 = New NETXP.Controls.Bars.CommandBarButtonItem Me.commandBarItem30 = New NETXP.Controls.Bars.CommandBarButtonItem Me.commandBarItem31 = New NETXP.Controls.Bars.CommandBarButtonItem Me.commandBarItem32 = New NETXP.Controls.Bars.CommandBarButtonItem Me.contextMenu2 = New NETXP.Controls.Bars.CommandContextMenu Me.commandBarManager1 = New NETXP.Controls.Bars.CommandBarManager Me.commandBarDockBottom = New NETXP.Controls.Bars.CommandBarDock Me.commandBarDockLeft = New NETXP.Controls.Bars.CommandBarDock Me.commandBarDockRight = New NETXP.Controls.Bars.CommandBarDock Me.commandBarDockTop = New NETXP.Controls.Bars.CommandBarDock Me.commandBar3 = New NETXP.Controls.Bars.CommandBar Me.commandBarButtonItem1 = New NETXP.Controls.Bars.CommandBarButtonItem Me.commandBarButtonItem2 = New NETXP.Controls.Bars.CommandBarButtonItem Me.commandBarButtonItem3 = New NETXP.Controls.Bars.CommandBarButtonItem Me.commandBarSeparatorItem4 = New NETXP.Controls.Bars.CommandBarSeparatorItem Me.commandBarButtonItem4 = New NETXP.Controls.Bars.CommandBarButtonItem Me.commandBarButtonItem7 = New NETXP.Controls.Bars.CommandBarButtonItem Me.commandBarButtonItem8 = New NETXP.Controls.Bars.CommandBarButtonItem Me.commandBarButtonItem9 = New NETXP.Controls.Bars.CommandBarButtonItem Me.commandBarSeparatorItem3 = New NETXP.Controls.Bars.CommandBarSeparatorItem Me.commandBarButtonItem5 = New NETXP.Controls.Bars.CommandBarButtonItem Me.commandBarSeparatorItem2 = New NETXP.Controls.Bars.CommandBarSeparatorItem Me.commandBarButtonItem6 = New NETXP.Controls.Bars.CommandBarButtonItem Me.commandBarButtonItem10 = New NETXP.Controls.Bars.CommandBarButtonItem Me.commandBarSeparatorItem5 = New NETXP.Controls.Bars.CommandBarSeparatorItem Me.commandBarComboItem2 = New NETXP.Controls.Bars.CommandBarComboItem Me.commandBarButtonItem11 = New NETXP.Controls.Bars.CommandBarButtonItem Me.commandBar4 = New NETXP.Controls.Bars.CommandBar Me.commandBarLabelItem2 = New NETXP.Controls.Bars.CommandBarLabelItem Me.commandBarComboItem3 = New NETXP.Controls.Bars.CommandBarComboItem Me.commandBarButtonItem12 = New NETXP.Controls.Bars.CommandBarButtonItem Me.statusBar1 = New NETXP.Controls.Bars.StatusBar Me.statusBarPanel1 = New System.Windows.Forms.StatusBarPanel Me.statusBarPanel2 = New System.Windows.Forms.StatusBarPanel Me.progressPanel1 = New NETXP.Controls.Bars.ProgressPanel Me.listBar1 = New NETXP.Controls.Bars.ListBar Me.listBarGroup1 = New NETXP.Controls.Bars.ListBarGroup Me.listBarItem2 = New NETXP.Controls.Bars.ListBarItem Me.listBarItem3 = New NETXP.Controls.Bars.ListBarItem Me.listBarItem1 = New NETXP.Controls.Bars.ListBarItem Me.listBarItem4 = New NETXP.Controls.Bars.ListBarItem Me.listBarGroup2 = New NETXP.Controls.Bars.ListBarGroup Me.listBarGroup3 = New NETXP.Controls.Bars.ListBarGroup Me.listBarGroup4 = New NETXP.Controls.Bars.ListBarGroup Me.listBarGroup5 = New NETXP.Controls.Bars.ListBarGroup Me.statusMessages1 = New NETXP.Components.Extenders.StatusMessages(Me.components) CType((Me.commandBar1), System.ComponentModel.ISupportInitialize).BeginInit() CType((Me.commandBar2), System.ComponentModel.ISupportInitialize).BeginInit() Me.commandBarDockTop.SuspendLayout() CType((Me.commandBar3), System.ComponentModel.ISupportInitialize).BeginInit() CType((Me.commandBar4), System.ComponentModel.ISupportInitialize).BeginInit() CType((Me.statusBarPanel1), System.ComponentModel.ISupportInitialize).BeginInit() CType((Me.statusBarPanel2), System.ComponentModel.ISupportInitialize).BeginInit() CType((Me.progressPanel1), System.ComponentModel.ISupportInitialize).BeginInit() CType((Me.listBar1), System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' ' commandBar1 ' Me.commandBar1.AllowClose = False Me.commandBar1.BackColor = System.Drawing.Color.Transparent Me.commandBar1.Cursor = System.Windows.Forms.Cursors.Default Me.commandBar1.CustomizeText = "&Customize Toolbar..." Me.commandBar1.FullRow = True Me.commandBar1.ID = 2976 Me.commandBar1.Items.AddRange(New CommandBarItem() {Me.commandBarItem1, Me.commandBarItem33, Me.commandBarItem34, Me.commandBarItem35, Me.commandBarItem2}) Me.commandBar1.Location = New System.Drawing.Point(0, 0) Me.commandBar1.Margins.Bottom = 1 Me.commandBar1.Margins.Left = 1 Me.commandBar1.Margins.Right = 1 Me.commandBar1.Margins.Top = 1 Me.commandBar1.MdiContainer = Me Me.commandBar1.Name = "commandBar1" Me.commandBar1.Size = New System.Drawing.Size(752, 24) Me.commandBar1.Style = NETXP.Controls.Bars.CommandBarStyle.Menu Me.commandBar1.TabIndex = 3 Me.commandBar1.TabStop = False Me.commandBar1.Text = "Menu Bar" ' ' commandBarItem1 ' Me.commandBarItem1.Items.AddRange(New CommandBarItem() {Me.commandBarItem3, Me.commandBarItem21, Me.commandBarItem42, Me.commandBarItem43, Me.commandBarItem44, Me.commandBarItem45, Me.commandBarItem46, Me.commandBarItem47, Me.commandBarItem48, Me.commandBarItem49, Me.commandBarItem50, Me.commandBarItem54, Me.commandBarItem55, Me.commandBarItem56, Me.commandBarItem57, Me.commandBarItem9}) Me.statusMessages1.SetStatusMessage(Me.commandBarItem1, "Contains commands for working with the selected items.") Me.commandBarItem1.Text = "&File" ' ' commandBarItem3 ' Me.commandBarItem3.Image = (CType((resources.GetObject("commandBarItem3.Image")), System.Drawing.Image)) Me.commandBarItem3.Infrequent = True Me.commandBarItem3.Items.AddRange(New CommandBarItem() {Me.commandBarItem20, Me.commandBarItem37, Me.commandBarItem38, Me.commandBarItem39, Me.commandBarItem40, Me.commandBarItem41}) Me.statusMessages1.SetStatusMessage(Me.commandBarItem3, "Opens a new document.") Me.commandBarItem3.Text = "&New" ' ' commandBarItem20 ' Me.commandBarItem20.Image = (CType((resources.GetObject("commandBarItem20.Image")), System.Drawing.Image)) Me.commandBarItem20.Shortcut = System.Windows.Forms.Shortcut.CtrlN Me.statusMessages1.SetStatusMessage(Me.commandBarItem20, "Opens a new window.") Me.commandBarItem20.Text = "&Window" ' ' commandBarItem38 ' Me.commandBarItem38.Image = (CType((resources.GetObject("commandBarItem38.Image")), System.Drawing.Image)) Me.statusMessages1.SetStatusMessage(Me.commandBarItem38, "Creates a new mail message.") Me.commandBarItem38.Text = "&Message" ' ' commandBarItem39 ' Me.commandBarItem39.Image = (CType((resources.GetObject("commandBarItem39.Image")), System.Drawing.Image)) Me.statusMessages1.SetStatusMessage(Me.commandBarItem39, "Post a new article.") Me.commandBarItem39.Text = "&Post" ' ' commandBarItem40 ' Me.commandBarItem40.Image = (CType((resources.GetObject("commandBarItem40.Image")), System.Drawing.Image)) Me.statusMessages1.SetStatusMessage(Me.commandBarItem40, "Create a new contact.") Me.commandBarItem40.Text = "&Contact" ' ' commandBarItem41 ' Me.commandBarItem41.Image = (CType((resources.GetObject("commandBarItem41.Image")), System.Drawing.Image)) Me.statusMessages1.SetStatusMessage(Me.commandBarItem41, "Make a new call.") Me.commandBarItem41.Text = "&Internet Call" ' ' commandBarItem21 ' Me.commandBarItem21.Image = (CType((resources.GetObject("commandBarItem21.Image")), System.Drawing.Image)) Me.commandBarItem21.Shortcut = System.Windows.Forms.Shortcut.CtrlO Me.statusMessages1.SetStatusMessage(Me.commandBarItem21, Nothing) Me.commandBarItem21.Text = "&Open..." ' ' commandBarItem42 ' Me.commandBarItem42.Enabled = False Me.commandBarItem42.Infrequent = True Me.statusMessages1.SetStatusMessage(Me.commandBarItem42, Nothing) Me.commandBarItem42.Text = "&Edit" ' ' commandBarItem43 ' Me.commandBarItem43.Enabled = False Me.commandBarItem43.Image = (CType((resources.GetObject("commandBarItem43.Image")), System.Drawing.Image)) Me.commandBarItem43.Shortcut = System.Windows.Forms.Shortcut.CtrlS Me.statusMessages1.SetStatusMessage(Me.commandBarItem43, Nothing) Me.commandBarItem43.Text = "&Save" ' ' commandBarItem44 ' Me.commandBarItem44.Infrequent = True Me.statusMessages1.SetStatusMessage(Me.commandBarItem44, Nothing) Me.commandBarItem44.Text = "Save &As..." ' ' commandBarItem45 ' Me.commandBarItem45.Infrequent = True ' ' commandBarItem46 ' Me.commandBarItem46.Infrequent = True Me.statusMessages1.SetStatusMessage(Me.commandBarItem46, Nothing) Me.commandBarItem46.Text = "Page Set&up..." ' ' commandBarItem47 ' Me.commandBarItem47.Image = (CType((resources.GetObject("commandBarItem47.Image")), System.Drawing.Image)) Me.commandBarItem47.Shortcut = System.Windows.Forms.Shortcut.CtrlP Me.statusMessages1.SetStatusMessage(Me.commandBarItem47, Nothing) Me.commandBarItem47.Text = "&Print..." ' ' commandBarItem48 ' Me.commandBarItem48.Image = (CType((resources.GetObject("commandBarItem48.Image")), System.Drawing.Image)) Me.statusMessages1.SetStatusMessage(Me.commandBarItem48, Nothing) Me.commandBarItem48.Text = "Print Pre&view..." ' ' commandBarItem50 ' Me.commandBarItem50.Image = (CType((resources.GetObject("commandBarItem50.Image")), System.Drawing.Image)) Me.commandBarItem50.Items.AddRange(New CommandBarItem() {Me.commandBarItem51, Me.commandBarItem52, Me.commandBarItem53}) Me.statusMessages1.SetStatusMessage(Me.commandBarItem50, Nothing) Me.commandBarItem50.Text = "S&end" ' ' commandBarItem51 ' Me.commandBarItem51.Image = (CType((resources.GetObject("commandBarItem51.Image")), System.Drawing.Image)) Me.statusMessages1.SetStatusMessage(Me.commandBarItem51, Nothing) Me.commandBarItem51.Text = "&Page by E-mail..." ' ' commandBarItem52 ' Me.statusMessages1.SetStatusMessage(Me.commandBarItem52, Nothing) Me.commandBarItem52.Text = "&Link by E-mail..." ' ' commandBarItem53 ' Me.statusMessages1.SetStatusMessage(Me.commandBarItem53, Nothing) Me.commandBarItem53.Text = "&Shortcut to Desktop" ' ' commandBarItem54 ' Me.commandBarItem54.Image = (CType((resources.GetObject("commandBarItem54.Image")), System.Drawing.Image)) Me.commandBarItem54.Infrequent = True Me.statusMessages1.SetStatusMessage(Me.commandBarItem54, Nothing) Me.commandBarItem54.Text = "&Import and Export..." ' ' commandBarItem56 ' Me.commandBarItem56.Image = (CType((resources.GetObject("commandBarItem56.Image")), System.Drawing.Image)) Me.statusMessages1.SetStatusMessage(Me.commandBarItem56, Nothing) Me.commandBarItem56.Text = "P&roperties" ' ' commandBarItem57 ' Me.commandBarItem57.Image = (CType((resources.GetObject("commandBarItem57.Image")), System.Drawing.Image)) Me.statusMessages1.SetStatusMessage(Me.commandBarItem57, Nothing) Me.commandBarItem57.Text = "&Work Offline" ' ' commandBarItem9 ' Me.commandBarItem9.Image = (CType((resources.GetObject("commandBarItem9.Image")), System.Drawing.Image)) Me.statusMessages1.SetStatusMessage(Me.commandBarItem9, Nothing) Me.commandBarItem9.Text = "E&xit" ' ' commandBarItem33 ' Me.commandBarItem33.Items.AddRange(New CommandBarItem() {Me.commandBarItem4, Me.commandBarItem5, Me.commandBarItem6, Me.commandBarItem7, Me.commandBarItem8, Me.commandBarItem58, Me.commandBarItem59}) Me.statusMessages1.SetStatusMessage(Me.commandBarItem33, Nothing) Me.commandBarItem33.Text = "&Edit" ' ' commandBarItem4 ' Me.commandBarItem4.Enabled = False Me.commandBarItem4.Image = (CType((resources.GetObject("commandBarItem4.Image")), System.Drawing.Image)) Me.commandBarItem4.Shortcut = System.Windows.Forms.Shortcut.CtrlX Me.statusMessages1.SetStatusMessage(Me.commandBarItem4, Nothing) Me.commandBarItem4.Text = "Cu&t" ' ' commandBarItem5 ' Me.commandBarItem5.Enabled = False Me.commandBarItem5.Image = (CType((resources.GetObject("commandBarItem5.Image")), System.Drawing.Image)) Me.commandBarItem5.Shortcut = System.Windows.Forms.Shortcut.CtrlC Me.statusMessages1.SetStatusMessage(Me.commandBarItem5, Nothing) Me.commandBarItem5.Text = "&Copy" ' ' commandBarItem6 ' Me.commandBarItem6.Enabled = False Me.commandBarItem6.Image = (CType((resources.GetObject("commandBarItem6.Image")), System.Drawing.Image)) Me.commandBarItem6.Shortcut = System.Windows.Forms.Shortcut.CtrlV Me.statusMessages1.SetStatusMessage(Me.commandBarItem6, Nothing) Me.commandBarItem6.Text = "&Paste" ' ' commandBarItem8 ' Me.commandBarItem8.Shortcut = System.Windows.Forms.Shortcut.CtrlA Me.statusMessages1.SetStatusMessage(Me.commandBarItem8, Nothing) Me.commandBarItem8.Text = "Select &All" ' ' commandBarItem59 ' Me.commandBarItem59.Image = (CType((resources.GetObject("commandBarItem59.Image")), System.Drawing.Image)) Me.commandBarItem59.Shortcut = System.Windows.Forms.Shortcut.CtrlF Me.statusMessages1.SetStatusMessage(Me.commandBarItem59, Nothing) Me.commandBarItem59.Text = "&Find (on This Page)..." ' ' commandBarItem34 ' Me.commandBarItem34.Items.AddRange(New CommandBarItem() {Me.commandBarItem60, Me.commandBarItem61, Me.commandBarItem62, Me.commandBarItem63, Me.commandBarItem64, Me.commandBarItem65, Me.commandBarItem66, Me.commandBarItem67}) Me.statusMessages1.SetStatusMessage(Me.commandBarItem34, Nothing) Me.commandBarItem34.Text = "&View" ' ' commandBarItem60 ' Me.commandBarItem60.Items.AddRange(New CommandBarItem() {Me.commandBarItem68, Me.commandBarItem69, Me.commandBarItem69B, Me.commandBarItem70, Me.commandBarItem71, Me.commandBarItem72}) Me.statusMessages1.SetStatusMessage(Me.commandBarItem60, Nothing) Me.commandBarItem60.Text = "&Toolbars" ' ' commandBarItem68 ' Me.commandBarItem68.Checked = True Me.commandBarItem68.Enabled = False Me.statusMessages1.SetStatusMessage(Me.commandBarItem68, Nothing) Me.commandBarItem68.Text = "&Menu" ' ' commandBarItem69 ' Me.commandBarItem69.Checked = True Me.statusMessages1.SetStatusMessage(Me.commandBarItem69, Nothing) Me.commandBarItem69.Text = "&Toolbar" ' ' commandBarItem69B ' Me.commandBarItem69B.Checked = True Me.statusMessages1.SetStatusMessage(Me.commandBarItem69B, Nothing) Me.commandBarItem69B.Text = "&Formatting" ' ' commandBarItem70 ' Me.commandBarItem70.Checked = True Me.statusMessages1.SetStatusMessage(Me.commandBarItem70, Nothing) Me.commandBarItem70.Text = "&Address Bar" ' ' commandBarItem72 ' Me.statusMessages1.SetStatusMessage(Me.commandBarItem72, Nothing) Me.commandBarItem72.Text = "&Lock the Toolbars" ' ' commandBarItem61 ' Me.commandBarItem61.Checked = True Me.statusMessages1.SetStatusMessage(Me.commandBarItem61, Nothing) Me.commandBarItem61.Text = "&Status Bar" ' ' commandBarItem62 ' Me.commandBarItem62.Checked = True Me.statusMessages1.SetStatusMessage(Me.commandBarItem62, Nothing) Me.commandBarItem62.Text = "Out&look Bar" ' ' commandBarItem64 ' Me.commandBarItem64.Items.AddRange(New CommandBarItem() {Me.commandBarItem73, Me.commandBarItem74, Me.commandBarItem75}) Me.statusMessages1.SetStatusMessage(Me.commandBarItem64, Nothing) Me.commandBarItem64.Text = "Display S&tyle" ' ' commandBarItem73 ' Me.commandBarItem73.Checked = True Me.commandBarItem73.CheckType = NETXP.Controls.Bars.ButtonItemCheckType.Radio Me.statusMessages1.SetStatusMessage(Me.commandBarItem73, Nothing) Me.commandBarItem73.Text = "Office 200&3" ' ' commandBarItem74 ' Me.commandBarItem74.CheckType = NETXP.Controls.Bars.ButtonItemCheckType.Radio Me.statusMessages1.SetStatusMessage(Me.commandBarItem74, Nothing) Me.commandBarItem74.Text = "Office &XP" ' ' commandBarItem75 ' Me.commandBarItem75.CheckType = NETXP.Controls.Bars.ButtonItemCheckType.Radio Me.statusMessages1.SetStatusMessage(Me.commandBarItem75, Nothing) Me.commandBarItem75.Text = "&Windows Default" ' ' commandBarItem66 ' Me.statusMessages1.SetStatusMessage(Me.commandBarItem66, Nothing) Me.commandBarItem66.Text = "St&op" ' ' commandBarItem67 ' Me.commandBarItem67.Shortcut = System.Windows.Forms.Shortcut.F5 Me.statusMessages1.SetStatusMessage(Me.commandBarItem67, Nothing) Me.commandBarItem67.Text = "&Refresh" ' ' commandBarItem35 ' Me.commandBarItem35.Items.AddRange(New CommandBarItem() {Me.commandBarItem76, Me.commandBarItem77, Me.commandBarItem78, Me.commandBarItem79}) Me.statusMessages1.SetStatusMessage(Me.commandBarItem35, Nothing) Me.commandBarItem35.Text = "F&avorites" ' ' commandBarItem76 ' Me.commandBarItem76.Image = (CType((resources.GetObject("commandBarItem76.Image")), System.Drawing.Image)) Me.statusMessages1.SetStatusMessage(Me.commandBarItem76, Nothing) Me.commandBarItem76.Text = "&Add to Favorites..." ' ' commandBarItem77 ' Me.commandBarItem77.Image = (CType((resources.GetObject("commandBarItem77.Image")), System.Drawing.Image)) Me.statusMessages1.SetStatusMessage(Me.commandBarItem77, Nothing) Me.commandBarItem77.Text = "&Organize Favorites..." ' ' commandBarItem79 ' Me.statusMessages1.SetStatusMessage(Me.commandBarItem79, Nothing) Me.commandBarItem79.Text = "Dacris Software Homepage" ' ' commandBarItem2 ' Me.commandBarItem2.Items.AddRange(New CommandBarItem() {Me.commandBarItem81, Me.commandBarItem80, Me.commandBarItem10}) Me.statusMessages1.SetStatusMessage(Me.commandBarItem2, Nothing) Me.commandBarItem2.Text = "&Help" ' ' commandBarItem81 ' Me.commandBarItem81.Image = (CType((resources.GetObject("commandBarItem81.Image")), System.Drawing.Image)) Me.commandBarItem81.Shortcut = System.Windows.Forms.Shortcut.F1 Me.statusMessages1.SetStatusMessage(Me.commandBarItem81, Nothing) Me.commandBarItem81.Text = "&Contents" ' ' commandBarItem10 ' Me.commandBarItem10.Image = (CType((resources.GetObject("commandBarItem10.Image")), System.Drawing.Image)) Me.commandBarItem10.Shortcut = System.Windows.Forms.Shortcut.CtrlF1 Me.statusMessages1.SetStatusMessage(Me.commandBarItem10, Nothing) Me.commandBarItem10.Text = "&About" ' ' commandBar2 ' Me.commandBar2.BackColor = System.Drawing.Color.Transparent Me.commandBar2.Cursor = System.Windows.Forms.Cursors.Default Me.commandBar2.CustomizeText = "&Customize Toolbar..." Me.commandBar2.ID = 2784 Me.commandBar2.Items.AddRange(New CommandBarItem() {Me.commandBarItem12, Me.commandBarItem13, Me.commandBarItem14, Me.commandBarItem15, Me.commandBarItem16, Me.commandBarItem17, Me.commandBarItem18, Me.commandBarLabelItem1, Me.commandBarItem19, Me.commandBarSeparatorItem1, Me.commandBarComboItem1}) Me.commandBar2.Location = New System.Drawing.Point(0, 24) Me.commandBar2.Margins.Bottom = 1 Me.commandBar2.Margins.Left = 1 Me.commandBar2.Margins.Right = 1 Me.commandBar2.Margins.Top = 1 Me.commandBar2.Name = "commandBar2" Me.commandBar2.RowNumber = 1 Me.commandBar2.Size = New System.Drawing.Size(439, 25) Me.commandBar2.TabIndex = 3 Me.commandBar2.TabStop = False Me.commandBar2.Text = "Standard Toolbar" ' ' commandBarItem12 ' Me.commandBarItem12.HotImage = (CType((resources.GetObject("commandBarItem12.HotImage")), System.Drawing.Image)) Me.commandBarItem12.Image = (CType((resources.GetObject("commandBarItem12.Image")), System.Drawing.Image)) Me.commandBarItem12.Items.AddRange(New CommandBarItem() {Me.commandBarItem22}) Me.commandBarItem12.ShowText = True Me.statusMessages1.SetStatusMessage(Me.commandBarItem12, Nothing) Me.commandBarItem12.Text = "Back" ' ' commandBarItem22 ' Me.commandBarItem22.Image = (CType((resources.GetObject("commandBarItem22.Image")), System.Drawing.Image)) Me.statusMessages1.SetStatusMessage(Me.commandBarItem22, Nothing) Me.commandBarItem22.Text = "Desktop" ' ' commandBarItem13 ' Me.commandBarItem13.Enabled = False Me.commandBarItem13.HotImage = (CType((resources.GetObject("commandBarItem13.HotImage")), System.Drawing.Image)) Me.commandBarItem13.Image = (CType((resources.GetObject("commandBarItem13.Image")), System.Drawing.Image)) Me.commandBarItem13.Items.AddRange(New CommandBarItem() {Me.commandBarItem29}) Me.statusMessages1.SetStatusMessage(Me.commandBarItem13, Nothing) Me.commandBarItem13.Text = "Forward" ' ' commandBarItem29 ' Me.commandBarItem29.HotImage = (CType((resources.GetObject("commandBarItem29.HotImage")), System.Drawing.Image)) Me.commandBarItem29.Image = (CType((resources.GetObject("commandBarItem29.Image")), System.Drawing.Image)) Me.statusMessages1.SetStatusMessage(Me.commandBarItem29, Nothing) Me.commandBarItem29.Text = "Windows &Update" ' ' commandBarItem14 ' Me.commandBarItem14.HotImage = (CType((resources.GetObject("commandBarItem14.HotImage")), System.Drawing.Image)) Me.commandBarItem14.Image = (CType((resources.GetObject("commandBarItem14.Image")), System.Drawing.Image)) Me.statusMessages1.SetStatusMessage(Me.commandBarItem14, Nothing) Me.commandBarItem14.Text = "Up One Level" ' ' commandBarItem16 ' Me.commandBarItem16.HotImage = (CType((resources.GetObject("commandBarItem16.HotImage")), System.Drawing.Image)) Me.commandBarItem16.Image = (CType((resources.GetObject("commandBarItem16.Image")), System.Drawing.Image)) Me.commandBarItem16.ShowText = True Me.statusMessages1.SetStatusMessage(Me.commandBarItem16, Nothing) Me.commandBarItem16.Text = "Search" ' ' commandBarItem17 ' Me.commandBarItem17.HotImage = (CType((resources.GetObject("commandBarItem17.HotImage")), System.Drawing.Image)) Me.commandBarItem17.Image = (CType((resources.GetObject("commandBarItem17.Image")), System.Drawing.Image)) Me.commandBarItem17.ShowText = True Me.statusMessages1.SetStatusMessage(Me.commandBarItem17, Nothing) Me.commandBarItem17.Text = "Folders" ' ' commandBarLabelItem1 ' Me.commandBarLabelItem1.Text = "Test" ' ' commandBarItem19 ' Me.commandBarItem19.HotImage = (CType((resources.GetObject("commandBarItem19.HotImage")), System.Drawing.Image)) Me.commandBarItem19.Image = (CType((resources.GetObject("commandBarItem19.Image")), System.Drawing.Image)) Me.commandBarItem19.Items.AddRange(New CommandBarItem() {Me.commandBarItem24, Me.commandBarItem25, Me.commandBarItem26, Me.commandBarItem27, Me.commandBarItem28}) Me.statusMessages1.SetStatusMessage(Me.commandBarItem19, Nothing) Me.commandBarItem19.Style = NETXP.Controls.Bars.ButtonItemStyle.DropDown Me.commandBarItem19.Text = "Views" ' ' commandBarItem24 ' Me.commandBarItem24.CheckType = NETXP.Controls.Bars.ButtonItemCheckType.Radio Me.statusMessages1.SetStatusMessage(Me.commandBarItem24, Nothing) Me.commandBarItem24.Text = "Thumbnails" ' ' commandBarItem25 ' Me.commandBarItem25.CheckType = NETXP.Controls.Bars.ButtonItemCheckType.Radio Me.statusMessages1.SetStatusMessage(Me.commandBarItem25, Nothing) Me.commandBarItem25.Text = "Tiles" ' ' commandBarItem26 ' Me.commandBarItem26.Checked = True Me.commandBarItem26.CheckType = NETXP.Controls.Bars.ButtonItemCheckType.Radio Me.statusMessages1.SetStatusMessage(Me.commandBarItem26, Nothing) Me.commandBarItem26.Text = "Icons" ' ' commandBarItem27 ' Me.commandBarItem27.CheckType = NETXP.Controls.Bars.ButtonItemCheckType.Radio Me.statusMessages1.SetStatusMessage(Me.commandBarItem27, Nothing) Me.commandBarItem27.Text = "List" ' ' commandBarItem28 ' Me.commandBarItem28.CheckType = NETXP.Controls.Bars.ButtonItemCheckType.Radio Me.statusMessages1.SetStatusMessage(Me.commandBarItem28, Nothing) Me.commandBarItem28.Text = "Details" ' ' commandBarComboItem1 ' Me.commandBarComboItem1.ComboText = "test" Me.commandBarComboItem1.Items.AddRange(New Object() {"def", "ghi", "aaaaa"}) Me.commandBarComboItem1.Text = "Combo Box" Me.commandBarComboItem1.Width = 80 ' ' commandBarItem23 ' Me.commandBarItem23.Image = (CType((resources.GetObject("commandBarItem23.Image")), System.Drawing.Image)) Me.commandBarItem23.ShowText = True Me.statusMessages1.SetStatusMessage(Me.commandBarItem23, Nothing) Me.commandBarItem23.Text = "Go" ' ' commandBarItem11 ' Me.statusMessages1.SetStatusMessage(Me.commandBarItem11, Nothing) Me.commandBarItem11.Text = Nothing ' ' commandBarItem30 ' Me.statusMessages1.SetStatusMessage(Me.commandBarItem30, Nothing) Me.commandBarItem30.Text = Nothing ' ' commandBarItem31 ' Me.commandBarItem31.Image = (CType((resources.GetObject("commandBarItem31.Image")), System.Drawing.Image)) Me.statusMessages1.SetStatusMessage(Me.commandBarItem31, Nothing) Me.commandBarItem31.Text = "Dock Form &1" ' ' commandBarItem32 ' Me.commandBarItem32.Image = (CType((resources.GetObject("commandBarItem32.Image")), System.Drawing.Image)) Me.statusMessages1.SetStatusMessage(Me.commandBarItem32, Nothing) Me.commandBarItem32.Text = "Dock Form &2" ' ' contextMenu2 ' Me.contextMenu2.Items.AddRange(New CommandBarItem() {Me.commandBarItem31, Me.commandBarItem32}) ' ' commandBarManager1 ' Me.commandBarManager1.BottomDock = Me.commandBarDockBottom Me.commandBarManager1.Form = Me Me.commandBarManager1.LeftDock = Me.commandBarDockLeft Me.commandBarManager1.RightDock = Me.commandBarDockRight Me.commandBarManager1.TopDock = Me.commandBarDockTop ' ' commandBarDockBottom ' Me.commandBarDockBottom.Dock = System.Windows.Forms.DockStyle.Bottom Me.commandBarDockBottom.Location = New System.Drawing.Point(0, 578) Me.commandBarDockBottom.Manager = Me.commandBarManager1 Me.commandBarDockBottom.Name = "commandBarDockBottom" Me.commandBarDockBottom.Size = New System.Drawing.Size(752, 0) Me.commandBarDockBottom.TabIndex = 3 Me.commandBarDockBottom.Text = "CommandBarDock" ' ' commandBarDockLeft ' Me.commandBarDockLeft.Dock = System.Windows.Forms.DockStyle.Left Me.commandBarDockLeft.Location = New System.Drawing.Point(0, 74) Me.commandBarDockLeft.Manager = Me.commandBarManager1 Me.commandBarDockLeft.Name = "commandBarDockLeft" Me.commandBarDockLeft.Size = New System.Drawing.Size(0, 504) Me.commandBarDockLeft.TabIndex = 0 Me.commandBarDockLeft.Text = "CommandBarDock" ' ' commandBarDockRight ' Me.commandBarDockRight.Dock = System.Windows.Forms.DockStyle.Right Me.commandBarDockRight.Location = New System.Drawing.Point(752, 74) Me.commandBarDockRight.Manager = Me.commandBarManager1 Me.commandBarDockRight.Name = "commandBarDockRight" Me.commandBarDockRight.Size = New System.Drawing.Size(0, 504) Me.commandBarDockRight.TabIndex = 1 Me.commandBarDockRight.Text = "CommandBarDock" ' ' commandBarDockTop ' Me.commandBarDockTop.Controls.Add(Me.commandBar3) Me.commandBarDockTop.Controls.Add(Me.commandBar4) Me.commandBarDockTop.Controls.Add(Me.commandBar2) Me.commandBarDockTop.Controls.Add(Me.commandBar1) Me.commandBarDockTop.Location = New System.Drawing.Point(0, 0) Me.commandBarDockTop.Manager = Me.commandBarManager1 Me.commandBarDockTop.Name = "commandBarDockTop" Me.commandBarDockTop.Size = New System.Drawing.Size(752, 74) Me.commandBarDockTop.TabIndex = 2 Me.commandBarDockTop.Text = "CommandBarDock" ' ' commandBar3 ' Me.commandBar3.BackColor = System.Drawing.Color.Transparent Me.commandBar3.Cursor = System.Windows.Forms.Cursors.Default Me.commandBar3.CustomizeText = "&Customize Toolbar..." Me.commandBar3.ID = 10279 Me.commandBar3.Items.AddRange(New CommandBarItem() {Me.commandBarButtonItem1, Me.commandBarButtonItem2, Me.commandBarButtonItem3, Me.commandBarSeparatorItem4, Me.commandBarButtonItem4, Me.commandBarSeparatorItem3, Me.commandBarButtonItem5, Me.commandBarSeparatorItem2, Me.commandBarButtonItem6, Me.commandBarSeparatorItem5, Me.commandBarComboItem2, Me.commandBarButtonItem11}) Me.commandBar3.Location = New System.Drawing.Point(0, 49) Me.commandBar3.Margins.Bottom = 1 Me.commandBar3.Margins.Left = 1 Me.commandBar3.Margins.Right = 1 Me.commandBar3.Margins.Top = 1 Me.commandBar3.Name = "commandBar3" Me.commandBar3.RowNumber = 2 Me.commandBar3.Size = New System.Drawing.Size(403, 25) Me.commandBar3.TabIndex = 4 Me.commandBar3.TabStop = False Me.commandBar3.Text = "Formatting Toolbar" ' ' commandBarButtonItem1 ' Me.commandBarButtonItem1.HotImage = (CType((resources.GetObject("commandBarButtonItem1.HotImage")), System.Drawing.Image)) Me.commandBarButtonItem1.Image = (CType((resources.GetObject("commandBarButtonItem1.Image")), System.Drawing.Image)) Me.commandBarButtonItem1.Shortcut = System.Windows.Forms.Shortcut.CtrlX Me.statusMessages1.SetStatusMessage(Me.commandBarButtonItem1, Nothing) Me.commandBarButtonItem1.Text = "Cut" ' ' commandBarButtonItem2 ' Me.commandBarButtonItem2.HotImage = (CType((resources.GetObject("commandBarButtonItem2.HotImage")), System.Drawing.Image)) Me.commandBarButtonItem2.Image = (CType((resources.GetObject("commandBarButtonItem2.Image")), System.Drawing.Image)) Me.commandBarButtonItem2.Shortcut = System.Windows.Forms.Shortcut.CtrlC Me.statusMessages1.SetStatusMessage(Me.commandBarButtonItem2, Nothing) Me.commandBarButtonItem2.Text = "Copy" ' ' commandBarButtonItem3 ' Me.commandBarButtonItem3.Enabled = False Me.commandBarButtonItem3.HotImage = (CType((resources.GetObject("commandBarButtonItem3.HotImage")), System.Drawing.Image)) Me.commandBarButtonItem3.Image = (CType((resources.GetObject("commandBarButtonItem3.Image")), System.Drawing.Image)) Me.commandBarButtonItem3.Shortcut = System.Windows.Forms.Shortcut.CtrlV Me.statusMessages1.SetStatusMessage(Me.commandBarButtonItem3, Nothing) Me.commandBarButtonItem3.Text = "Paste" ' ' commandBarButtonItem4 ' Me.commandBarButtonItem4.HotImage = (CType((resources.GetObject("commandBarButtonItem4.HotImage")), System.Drawing.Image)) Me.commandBarButtonItem4.Image = (CType((resources.GetObject("commandBarButtonItem4.Image")), System.Drawing.Image)) Me.commandBarButtonItem4.Items.AddRange(New CommandBarItem() {Me.commandBarButtonItem7, Me.commandBarButtonItem8, Me.commandBarButtonItem9}) Me.commandBarButtonItem4.ShowText = True Me.statusMessages1.SetStatusMessage(Me.commandBarButtonItem4, Nothing) Me.commandBarButtonItem4.Style = NETXP.Controls.Bars.ButtonItemStyle.DropDown Me.commandBarButtonItem4.Text = "Encoding" ' ' commandBarButtonItem7 ' Me.commandBarButtonItem7.Checked = True Me.commandBarButtonItem7.CheckType = NETXP.Controls.Bars.ButtonItemCheckType.Radio Me.statusMessages1.SetStatusMessage(Me.commandBarButtonItem7, Nothing) Me.commandBarButtonItem7.Text = "UTF-8" ' ' commandBarButtonItem8 ' Me.commandBarButtonItem8.CheckType = NETXP.Controls.Bars.ButtonItemCheckType.Radio Me.statusMessages1.SetStatusMessage(Me.commandBarButtonItem8, Nothing) Me.commandBarButtonItem8.Text = "Unicode" ' ' commandBarButtonItem9 ' Me.commandBarButtonItem9.CheckType = NETXP.Controls.Bars.ButtonItemCheckType.Radio Me.statusMessages1.SetStatusMessage(Me.commandBarButtonItem9, Nothing) Me.commandBarButtonItem9.Text = "ANSI" ' ' commandBarButtonItem5 ' Me.commandBarButtonItem5.HotImage = (CType((resources.GetObject("commandBarButtonItem5.HotImage")), System.Drawing.Image)) Me.commandBarButtonItem5.Image = (CType((resources.GetObject("commandBarButtonItem5.Image")), System.Drawing.Image)) Me.statusMessages1.SetStatusMessage(Me.commandBarButtonItem5, Nothing) Me.commandBarButtonItem5.Text = "Print Preview" ' ' commandBarButtonItem6 ' Me.commandBarButtonItem6.HotImage = (CType((resources.GetObject("commandBarButtonItem6.HotImage")), System.Drawing.Image)) Me.commandBarButtonItem6.Image = (CType((resources.GetObject("commandBarButtonItem6.Image")), System.Drawing.Image)) Me.commandBarButtonItem6.Items.AddRange(New CommandBarItem() {Me.commandBarButtonItem10}) Me.statusMessages1.SetStatusMessage(Me.commandBarButtonItem6, Nothing) Me.commandBarButtonItem6.Style = NETXP.Controls.Bars.ButtonItemStyle.DropDown Me.commandBarButtonItem6.Text = "Related" ' ' commandBarButtonItem10 ' Me.commandBarButtonItem10.Enabled = False Me.statusMessages1.SetStatusMessage(Me.commandBarButtonItem10, Nothing) Me.commandBarButtonItem10.Text = "(Empty)" ' ' commandBarComboItem2 ' Me.commandBarComboItem2.ComboText = "" Me.commandBarComboItem2.Items.AddRange(New Object() {"topic1", "topic2", "topic3"}) Me.commandBarComboItem2.Style = System.Windows.Forms.ComboBoxStyle.DropDownList Me.commandBarComboItem2.Text = "Help Topics" Me.commandBarComboItem2.Width = 128 ' ' commandBarButtonItem11 ' Me.commandBarButtonItem11.Image = (CType((resources.GetObject("commandBarButtonItem11.Image")), System.Drawing.Image)) Me.statusMessages1.SetStatusMessage(Me.commandBarButtonItem11, Nothing) Me.commandBarButtonItem11.Text = "Test" ' ' commandBar4 ' Me.commandBar4.BackColor = System.Drawing.Color.Transparent Me.commandBar4.Cursor = System.Windows.Forms.Cursors.Default Me.commandBar4.CustomizeText = "&Customize Toolbar..." Me.commandBar4.ID = 11625 Me.commandBar4.Items.AddRange(New CommandBarItem() {Me.commandBarLabelItem2, Me.commandBarComboItem3, Me.commandBarButtonItem12}) Me.commandBar4.Location = New System.Drawing.Point(403, 49) Me.commandBar4.Margins.Bottom = 1 Me.commandBar4.Margins.Left = 1 Me.commandBar4.Margins.Right = 1 Me.commandBar4.Margins.Top = 1 Me.commandBar4.Name = "commandBar4" Me.commandBar4.Position = 100 Me.commandBar4.RowNumber = 2 Me.commandBar4.Size = New System.Drawing.Size(277, 25) Me.commandBar4.TabIndex = 5 Me.commandBar4.TabStop = False Me.commandBar4.Text = "Address Bar" ' ' commandBarLabelItem2 ' Me.commandBarLabelItem2.Text = "Address:" ' ' commandBarComboItem3 ' Me.commandBarComboItem3.ComboText = "http://www.dacris.com" Me.commandBarComboItem3.Text = "Enter URL" Me.commandBarComboItem3.Width = 160 ' ' commandBarButtonItem12 ' Me.commandBarButtonItem12.Image = (CType((resources.GetObject("commandBarButtonItem12.Image")), System.Drawing.Image)) Me.commandBarButtonItem12.ShowText = True Me.statusMessages1.SetStatusMessage(Me.commandBarButtonItem12, Nothing) Me.commandBarButtonItem12.Text = "Go" ' ' statusBar1 ' Me.statusBar1.Location = New System.Drawing.Point(0, 578) Me.statusBar1.Name = "statusBar1" Me.statusBar1.Panels.AddRange(New System.Windows.Forms.StatusBarPanel() {Me.statusBarPanel1, Me.statusBarPanel2, Me.progressPanel1}) Me.statusBar1.ShowPanels = True Me.statusBar1.Size = New System.Drawing.Size(752, 20) Me.statusBar1.TabIndex = 5 ' ' statusBarPanel1 ' Me.statusBarPanel1.AutoSize = System.Windows.Forms.StatusBarPanelAutoSize.Spring Me.statusBarPanel1.Style = System.Windows.Forms.StatusBarPanelStyle.OwnerDraw Me.statusBarPanel1.Text = "Ready." Me.statusBarPanel1.Width = 534 ' ' statusBarPanel2 ' Me.statusBarPanel2.AutoSize = System.Windows.Forms.StatusBarPanelAutoSize.Contents Me.statusBarPanel2.Icon = (CType((resources.GetObject("statusBarPanel2.Icon")), System.Drawing.Icon)) Me.statusBarPanel2.Style = System.Windows.Forms.StatusBarPanelStyle.OwnerDraw Me.statusBarPanel2.Text = "Internet Zone" Me.statusBarPanel2.Width = 102 ' ' progressPanel1 ' Me.progressPanel1.Maximum = 100 Me.progressPanel1.Minimum = 1 Me.progressPanel1.Style = System.Windows.Forms.StatusBarPanelStyle.OwnerDraw Me.progressPanel1.Value = 50 ' ' listBar1 ' Me.listBar1.AllowDrop = True Me.listBar1.Cursor = System.Windows.Forms.Cursors.Default Me.listBar1.Dock = System.Windows.Forms.DockStyle.Left Me.listBar1.Groups.AddRange(New NETXP.Controls.Bars.ListBarGroup() {Me.listBarGroup1, Me.listBarGroup2, Me.listBarGroup3, Me.listBarGroup4, Me.listBarGroup5}) Me.listBar1.Location = New System.Drawing.Point(0, 74) Me.listBar1.Name = "listBar1" Me.listBar1.Size = New System.Drawing.Size(176, 504) Me.listBar1.TabIndex = 7 Me.listBar1.ToolTip = Nothing ' ' listBarGroup1 ' Me.listBarGroup1.Caption = "Test1" Me.listBarGroup1.Items.AddRange(New NETXP.Controls.Bars.ListBarItem() {Me.listBarItem2, Me.listBarItem3, Me.listBarItem1, Me.listBarItem4}) Me.listBarGroup1.Key = "" Me.listBarGroup1.ToolTipText = "" Me.listBarGroup1.View = NETXP.Controls.Bars.ListBarGroupView.TextRight ' ' listBarItem2 ' Me.listBarItem2.Caption = "3D Bar Chart" Me.listBarItem2.Image = (CType((resources.GetObject("listBarItem2.Image")), System.Drawing.Image)) Me.listBarItem2.Key = "" Me.listBarItem2.Tag = "" Me.listBarItem2.ToolTipText = "" ' ' listBarItem3 ' Me.listBarItem3.Caption = "3D Clustered Column Chart" Me.listBarItem3.Enabled = False Me.listBarItem3.Image = (CType((resources.GetObject("listBarItem3.Image")), System.Drawing.Image)) Me.listBarItem3.Key = "" Me.listBarItem3.Tag = "" Me.listBarItem3.ToolTipText = "" ' ' listBarItem1 ' Me.listBarItem1.Caption = "3D Area Chart" Me.listBarItem1.Image = (CType((resources.GetObject("listBarItem1.Image")), System.Drawing.Image)) Me.listBarItem1.Key = "" Me.listBarItem1.Tag = "" Me.listBarItem1.ToolTipText = "" ' ' listBarItem4 ' Me.listBarItem4.Caption = "3D Column Chart" Me.listBarItem4.Image = (CType((resources.GetObject("listBarItem4.Image")), System.Drawing.Image)) Me.listBarItem4.Key = "" Me.listBarItem4.Tag = "" Me.listBarItem4.ToolTipText = "" ' ' listBarGroup2 ' Me.listBarGroup2.Caption = "Test2" Me.listBarGroup2.Key = "" Me.listBarGroup2.ToolTipText = "" Me.listBarGroup2.View = NETXP.Controls.Bars.ListBarGroupView.TextUnderneath ' ' listBarGroup3 ' Me.listBarGroup3.Caption = "Test3" Me.listBarGroup3.Key = "" Me.listBarGroup3.ToolTipText = "" Me.listBarGroup3.View = NETXP.Controls.Bars.ListBarGroupView.NoText ' ' listBarGroup4 ' Me.listBarGroup4.Caption = "Test4" Me.listBarGroup4.Key = "" Me.listBarGroup4.ToolTipText = "" Me.listBarGroup4.View = NETXP.Controls.Bars.ListBarGroupView.NoText ' ' listBarGroup5 ' Me.listBarGroup5.Caption = "Test5" Me.listBarGroup5.Key = "" Me.listBarGroup5.ToolTipText = "" Me.listBarGroup5.View = NETXP.Controls.Bars.ListBarGroupView.TextUnderneath ' ' statusMessages1 ' Me.statusMessages1.StatusBar = Me.statusBar1 ' ' Form1 ' Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) Me.ClientSize = New System.Drawing.Size(752, 598) Me.Controls.Add(Me.listBar1) Me.Controls.Add(Me.commandBarDockLeft) Me.Controls.Add(Me.commandBarDockRight) Me.Controls.Add(Me.commandBarDockTop) Me.Controls.Add(Me.commandBarDockBottom) Me.Controls.Add(Me.statusBar1) Me.Icon = (CType((resources.GetObject("$this.Icon")), System.Drawing.Icon)) Me.IsMdiContainer = True Me.Name = "Form1" Me.Text = "Test Application" CType((Me.commandBar1), System.ComponentModel.ISupportInitialize).EndInit() CType((Me.commandBar2), System.ComponentModel.ISupportInitialize).EndInit() Me.commandBarDockTop.ResumeLayout(False) CType((Me.commandBar3), System.ComponentModel.ISupportInitialize).EndInit() CType((Me.commandBar4), System.ComponentModel.ISupportInitialize).EndInit() CType((Me.statusBarPanel1), System.ComponentModel.ISupportInitialize).EndInit() CType((Me.statusBarPanel2), System.ComponentModel.ISupportInitialize).EndInit() CType((Me.progressPanel1), System.ComponentModel.ISupportInitialize).EndInit() CType((Me.listBar1), System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) End Sub #End Region <STAThread()> _ Public Shared Sub Main(ByVal args As String()) Application.Run(New Form1) End Sub Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load 'control items can only be added at runtime Dim ctlItem As CommandBarControlItem = New CommandBarControlItem Me.commandBar2.Items.Add(ctlItem) ctlItem.Control = New Button ctlItem.Control.Text = "Button Item" ctlItem.Width = 70 ctlItem.Height = 20 CType(ctlItem.Control, Button).FlatStyle = FlatStyle.System Dim bar As CommandBar For Each bar In Me.commandBarManager1.GetCommandBars() AddHandler bar.ShowGripperChanged, AddressOf bar_ShowGripperChanged Next Dim key As Microsoft.Win32.RegistryKey = Nothing Try key = Microsoft.Win32.Registry.CurrentUser.CreateSubKey("Software\\RebarTestApp") Me.commandBarManager1.LoadLayout(key) Catch x As Exception System.Diagnostics.Debug.WriteLine(x.ToString()) Finally If Not key Is Nothing Then key.Close() End If End Try End Sub Private Sub commandBarItem9_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles commandBarItem9.Click Me.Close() End Sub Private Sub bar_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles commandBar1.MouseUp, commandBar2.MouseUp, commandBar3.MouseUp, commandBar4.MouseUp If e.Button = MouseButtons.Right Then Dim contextMenu1 As CommandContextMenu contextMenu1 = New CommandContextMenu contextMenu1.Items = commandBarItem60.Items contextMenu1.Renderer = commandBarManager1.Renderer contextMenu1.Show(CType(sender, Control), New Point(e.X, e.Y)) End If End Sub Private Sub commandBarItem20_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles commandBarItem20.Click Dim child As MdiChild = New MdiChild child.MdiParent = Me child.SetManager(Me.commandBarManager1) child.Show() End Sub Private Sub commandBarItem17_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles commandBarItem17.Click commandBarItem17.Checked = Not commandBarItem17.Checked End Sub Private Sub commandBarItem74_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles commandBarItem74.Click 'office xp If Not commandBarItem74.Checked Then Me.commandBarManager1.Renderer = New NETXP.Controls.Bars.CommandBarRenderers.OfficeXP Me.listBar1.Renderer = New NETXP.Controls.Bars.ListBarRenderers.OfficeXP Me.statusBar1.Renderer = New NETXP.Controls.Bars.StatusBarRenderers.OfficeXP commandBarItem73.Checked = False commandBarItem74.Checked = True commandBarItem75.Checked = False Refresh() End If End Sub Private Sub commandBarItem73_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles commandBarItem73.Click 'office 2003 If Not commandBarItem73.Checked Then Me.commandBarManager1.Renderer = New NETXP.Controls.Bars.CommandBarRenderers.Office2003 Me.listBar1.Renderer = New NETXP.Controls.Bars.ListBarRenderers.Office2003 Me.statusBar1.Renderer = New NETXP.Controls.Bars.StatusBarRenderers.Office2003 commandBarItem73.Checked = True commandBarItem74.Checked = False commandBarItem75.Checked = False Refresh() End If End Sub Private Sub commandBarItem75_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles commandBarItem75.Click 'windows xp If Not commandBarItem75.Checked Then Me.commandBarManager1.Renderer = New NETXP.Controls.Bars.CommandBarRenderers.WindowsDefault Me.listBar1.Renderer = New NETXP.Controls.Bars.ListBarRenderers.WindowsDefault Me.statusBar1.Renderer = New NETXP.Controls.Bars.StatusBarRenderers.WindowsDefault commandBarItem73.Checked = False commandBarItem74.Checked = False commandBarItem75.Checked = True Refresh() End If End Sub Private Sub commandBarItem38_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles commandBarItem38.Click commandBarItem1.Items.Add(New CommandBarButtonItem("Test Item")) End Sub Private Sub commandBarItem69_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles commandBarItem69.Click If Me.commandBarItem69.Checked Then Me.commandBar2.HideBar() Me.commandBarItem69.Checked = False Else Me.commandBar2.ShowBar() Me.commandBarItem69.Checked = True End If End Sub Private Sub commandBarItem70_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles commandBarItem70.Click If Me.commandBarItem70.Checked Then Me.commandBar4.HideBar() Me.commandBarItem70.Checked = False Else Me.commandBar4.ShowBar() Me.commandBarItem70.Checked = True End If End Sub Private Sub commandBarItem72_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles commandBarItem72.Click If Me.commandBarItem72.Checked = False Then Dim bar As CommandBar For Each bar In Me.commandBarManager1.GetCommandBars() bar.ShowGripper = False Next Me.commandBarItem72.Checked = True Else Dim bar As CommandBar For Each bar In Me.commandBarManager1.GetCommandBars() bar.ShowGripper = True Next Me.commandBarItem72.Checked = False End If End Sub Private Sub commandBarItem61_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles commandBarItem61.Click commandBarItem61.Checked = Not commandBarItem61.Checked Me.statusBar1.Visible = Not Me.statusBar1.Visible End Sub Private Sub commandBarItem62_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles commandBarItem62.Click commandBarItem62.Checked = Not commandBarItem62.Checked Me.listBar1.Visible = Not Me.listBar1.Visible End Sub Private Sub Form1_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing Dim key As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.CurrentUser.CreateSubKey("Software\\RebarTestApp") Me.commandBarManager1.SaveLayout(key) key.Close() End Sub Private Sub commandBarItem81_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles commandBarItem81.Click Dim frm As Form = New Form frm.Show() End Sub Private Sub commandBarItem16_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles commandBarItem16.Click 'run benchmark test Dim menu As CommandContextMenu Dim start As Integer = System.Environment.TickCount Dim i As Integer For i = 0 To 99 menu = New CommandContextMenu menu.Animate = False menu.Items = CType(Me.commandBar1.Items(0), CommandBarButtonItem).Items AddHandler menu.Shown, AddressOf menu_Shown menu.Show(Me.commandBar1, New Point(0, 0)) menu.Dispose() menu = Nothing Next Dim time As Integer = System.Environment.TickCount - start MessageBox.Show(time.ToString()) End Sub Private Sub menu_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Dim menu As CommandContextMenu = CType(sender, CommandContextMenu) menu.Dismiss() End Sub Private Sub bar_ShowGripperChanged(ByVal sender As Object, ByVal e As System.EventArgs) Me.commandBarItem72.Checked = Not CType(sender, CommandBar).ShowGripper End Sub Private Sub commandBar4_VisibleChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles commandBar4.VisibleChanged Me.commandBarItem70.Checked = CType(sender, Control).Visible End Sub Private Sub commandBar2_VisibleChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles commandBar2.VisibleChanged Me.commandBarItem69.Checked = CType(sender, Control).Visible End Sub Private Sub commandBarItem69B_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles commandBarItem69B.Click If Me.commandBarItem69B.Checked Then Me.commandBar3.HideBar() Me.commandBarItem69B.Checked = False Else Me.commandBar3.ShowBar() Me.commandBarItem69B.Checked = True End If End Sub Private Sub commandBar3_VisibleChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles commandBar3.VisibleChanged Me.commandBarItem69B.Checked = CType(sender, Control).Visible End Sub Private Sub statusBar1_VisibleChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles statusBar1.VisibleChanged Me.commandBarItem61.Checked = Me.statusBar1.Visible End Sub Private Sub listBar1_VisibleChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles listBar1.VisibleChanged Me.commandBarItem62.Checked = Me.listBar1.Visible End Sub End Class End Namespace