Автор: SHARP. По отдельности работает и Click и DblClick, а при совмещении перестает выдавать 4 Private Sub Button_Click() If Button.Caption = "1" Then Button.Caption = "2" Else Button.Caption = "1" End If End Sub Private Sub Button_DblClick(ByVal Cancel As MSForms.ReturnBoolean) If Button.Caption = "3" Then Button.Caption = "4" Else Button.Caption = "3" End If End ...