How to remove border around the button after pressed.

[tihmir]

Happy New Year to all!
I wish you all happiness and health!
How can I remove that border, which remains around the button is pressed?

 

[Eugene-LS]

How can I remove that border, which remains around the button is pressed?

Try to set focus to enother control of form

Private Sub cmdButton_Click()
    ' ...
    ' ...
    Me.EnotherControl.SetFocus
End Sub

 

[tihmir]

Try to set focus to enother control of form

Private Sub cmdButton_Click()
    ' ...
    ' ...
    Me.EnotherControl.SetFocus
End Sub

Yes, that is a possible option, but it is quite laborious to do for all buttons!
Тhank you for the advice!

 

[Eugene-LS]

How can I remove that border, which remains around the button is pressed?

Another way:
Use a Label control instead of a button, it also has an "On Click" event.

Private Sub LabelTest_Click()
    MsgBox "There's no border around the Lable!", _
        vbInformation, "Use a label instead of a button!"
End Sub