Adding More Sub Button in popup

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

   hello there, i want to add more sub button after xtpcontrolpopup, can anyone help me?
below is my code
sorry for my bad english.

 Public Function popup_me()

Dim Popup As CommandBar

Dim control As CommandBarControl

Set Popup = utama.combar.Add("Popup", xtpBarPopup)

With Popup

        Set control = AddButton(.Controls, xtpControlButton, ID_GUEST_LOG, "Guest Login")

        Set control = AddButton(.Controls, xtpControlButton, ID_MOVE_CUSTOMER, "Move Customer")

        control.BeginGroup = True

        Set control = AddButton(.Controls, xtpControlButton, ID_LOGOUT, "Logout")

        Set control = AddButton(.Controls, xtpControlButton, ID_CANCEL, "Cancel")

        Set control = AddButton(.Controls, xtpControlPopup, 0, "Edit Login")

            control.CommandBar.Controls.Add xtpControlButton, ID, "blala"

            control.CommandBar.Controls.Add xtpControlPopup, 0, "bla"

           " I want to add more button for this xtpcontrolpopup "bla"

          control.CommandBar.Controls.Add xtpControlButton, id, "LL"

End With

Dim nCommand As Long

    nCommand = Popup.ShowPopup(TPM_RETURNCMD)

    If (nCommand = 0) Then Exit Function

    Select Case (nCommand)

        Case ID_GUEST_LOG:

        msgbox"ll"

        Case ID_SHORTCUT_SHOW_FEWER:

        MsgBox "kk"

    End Select

End Function