Private Sub oButton_Click(ByVal ctrl As Office.CommandBarButton, ByRef _
      Cancel As Boolean)
 
        MessageBox.Show(ctrl.Caption)
        ReAddHandler()
 
        System.Threading.Thread.Sleep(1000)
        m_PopUp_1.Enabled = True
    End Sub

    Private Sub ReAddHandler()
        On Error Resume Next
        m_PopUp_1.Enabled = False
 
        For Each oButton In m_PopUp_1.Controls
            RemoveHandler oButton.Click, AddressOf oButton_Click
            AddHandler oButton.Click, AddressOf oButton_Click
        Next
 
    End Sub