Descripcion de comandos Ribbon DevExpress para crear barras y controles

mports DevExpress.XtraBars
 Imports DevExpress.XtraBars.Ribbon

Parcial  Clase pública  Form1
     Public Sub New ()  
        InitializeComponent ()
    End  Sub 

    Private  Sub Form1_Load (remitente como  objeto , e como EventArgs) maneja  MyBase .Load
         'Crear un RibbonControl  
        Dim ribbon As  New RibbonControl ()
         Me .Controls.Add (ribbon)
         ' Asigna la colección de imágenes que proporcionará imágenes para los elementos de la barra. 
        ribbon.Images = ImageCollection1

        'Crear una página de cinta.  
        Dim page1 As  New RibbonPage ( "Home" )
         'Crea un grupo de páginas Ribbon.  
        Dim group1 As  New RibbonPageGroup ( "File" )
         'Crea otro grupo de páginas Ribbon.  
        Dim group2 As  New RibbonPageGroup ( "Archivo 2" )

        'Cree un elemento de botón utilizando el método CreateButton.  
        'El elemento creado se agrega automáticamente a la colección de elementos de RibbonControl.  
        Dim itemOpen As BarButtonItem = ribbon.Items.CreateButton ( "Abrir ..." )
        itemOpen.ImageIndex = 0
        itemOpen.Id = ribbon.Manager.GetNewItemId () 'Asegura la correcta (des) serialización del diseño de tiempo de ejecución.  
        AddHandler itemOpen.ItemClick, AddressOf itemOpen_ItemClick

        'Crear un elemento de botón usando su constructor.  
        'El constructor agrega automáticamente el elemento creado a la colección de elementos de RibbonControl.  
        Dim itemClose As  New BarButtonItem (ribbon.Manager, "Cerrar" )
        itemClose.ImageIndex = 1
        itemClose.Id = ribbon.Manager.GetNewItemId () 'Asegura la correcta (des) serialización del diseño de tiempo de ejecución.  
        AddHandler itemClose.ItemClick, AddressOf itemClose_ItemClick

        'Crear un elemento de botón utilizando el constructor predeterminado.  
        Dim itemPrint As  New BarButtonItem ()
         'Agregar manualmente el elemento creado a la colección de elementos de RibbonControl. 
        ribbon.Items.Add (itemPrint)
        itemPrint.Caption = "Imprimir" 
        itemPrint.ImageIndex = 2
        itemPrint.Id = ribbon.Manager.GetNewItemId () 'Asegura la correcta (des) serialización del diseño de tiempo de ejecución.  
        AddHandler itemPrint.ItemClick, AddressOf itemPrint_ItemClick

        'Agregue los elementos creados al grupo utilizando el método AddRange.  
        'Este método creará enlaces de elementos de barra para los elementos y luego agregará los enlaces al grupo.  
        group1.ItemLinks.AddRange ( New BarItem () {itemOpen, itemClose, itemPrint})
         'Agregue el elemento Open bar al segundo grupo. 
        group2.ItemLinks.Add (itemOpen)
        'Agregar los grupos creados a la página. 
        page1.Groups.Add (group1)
        page1.Groups.Add (group2)
        'Agregue la página al RibbonControl. 
        ribbon.Pages.Add (página1)


        'Crear una barra de estado con dos comandos.  
        Dim ribbonStatusBar As RibbonStatusBar = New RibbonStatusBar ()
        ribbonStatusBar.Ribbon = cinta
        Dim linkClose As BarItemLink = ribbonStatusBar.ItemLinks.Add (itemClose)
        linkClose.UserRibbonStyle = RibbonItemStyles.SmallWithoutText
        linkClose.UserAlignment = BarItemLinkAlignment.Right
        Dim linkPrint As BarItemLink = ribbonStatusBar.ItemLinks.Add (itemPrint)
        linkPrint.UserRibbonStyle = RibbonItemStyles.SmallWithoutText
        ribbonStatusBar.Parent = Me  
    End  Sub 

    Sub itemPrint_ItemClick ( remitente ByVal como  objeto , ByVal e como ItemClickEventArgs)
         '...  
    End  Sub 

    Sub itemClose_ItemClick ( remitente ByVal como  objeto , ByVal e como ItemClickEventArgs)
         '...  
    End  Sub 

    Sub itemOpen_ItemClick ( remitente ByVal como  objeto , ByVal e como ItemClickEventArgs)
         '...  
    End  Sub 

 Clase final 

tomado de este link: https://documentation.devexpress.com/WindowsForms/DevExpress.XtraBars.Ribbon.RibbonStatusBar.class