In the following example, the event procedure runs when the Account Maintenance window opens. It first hides the Budget button, then uses the Left property to move the Currency button to the same position as the Budget button:
Private Sub Window_BeforeOpen(OpenVisible As Boolean) 'Hide the Budget button Budget.Visible = False 'Move the Currency button to the left CurrencyButton.Left = Budget.Left End Sub