Change location of commandbuttons on multi page in userform using vba

Hi all

Can this be done?

I have a userform with a multipage control with 12 pages. Page (0) is called Frequently Used. Pages 1 to 12 all have a number of command buttons. The code for each command button has a code which identifies which page it is on. If any command button is used at least once, I want to move that command button to the Frequently Used page (Pages(0)).

Is this possible programatically?

Cheers

Sorry about the delay in responding, Norie.

Below is the code for two selected buttons:

Private Sub cmdGL_6046_Click()
    
    cmdGL_6046.BackColor = 13485434: CheckNextItem = 1
    
    CCaption = cmdGL_6046.Caption: ECaption = "Telephone/Fax & Postage ": GLCode = "6046"
    
    lblNameOfSupplier.Visible = True: txtNameOfSupplier.Visible = True
    lblExistingSupplier.Visible = True: cboExistingSupplier.Visible = True
    
    Call ButtonClick: cmdAnotherItem.Visible = False ': Call Budget
    
    txtHelp.Height = 55
    txtHelp = "This is for stationary items." & vbCrLf & vbCrLf & "If this not what you want, please press the Undo button to de-select this item."
       
    MultiPage1.Pages(0).Enabled = True: MultiPage1.Value = 0
    
End Sub

and ...

Private Sub cmdGL_6050_Click()
    
    cmdGL_6050.BackColor = 13485434: CheckNextItem = 1
    
    CCaption = cmdGL_6050.Caption: ECaption = "Motor & Travel ": GLCode = "6050"
    
    lblRegLocal.Visible = True: lblRegAll.Visible = True
    cboRegLocal.Visible = True: cboRegAll.Visible = True
    
    lblNameOfSupplier.Visible = True: txtNameOfSupplier.Visible = True
    lblExistingSupplier.Visible = True: cboExistingSupplier.Visible = True
    
    Call ButtonClick: cmdAnotherItem.Visible = False
    
    'MultiPage2.Visible = False:
    
    MultiPage1.Pages(2).Enabled = True: MultiPage1.Value = 2
    
End Sub

There are about 400 buttons in different tabs of the Multipage1 control. I think your suggestion is good, but how do I even start coding that!!!?