... DblClick, а при совмещении перестает выдавать 4 Private Sub Button_Click() If Button ... .Caption = "1" Then Button.Caption = " ... ;2" Else Button.Caption = " ... Cancel As MSForms.ReturnBoolean) If Button.Caption = "3" Then ... Button.Caption = "4" Else Button.Caption = " ... второй Click, также и с DblClick