向功能区组DevExpress添加按钮

如何以编程方式向功能区组添加按钮?这是我到目前为止的代码,它成功地添加了一个新的ribbonPage,然后向页面添加了一个RibbonGroup。但我需要在ribbonGroup中添加按钮,它对我不起作用

Imports DevExpress.XtraBars.Ribbon

Public Class Form1


    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim menu As New RibbonControl

        Dim aPage As New RibbonPage("Nicks Page")

        'groups
        Dim aGroup1 As New RibbonPageGroup("1st Group")


        'ADD BUTTONS TO RIBBON GROUP HERE



        aPage.Groups.Add(aGroup1)

        menu.Pages.Add(aPage)

        Me.Controls.Add(menu)

    End Sub