menu buttons problem - one clicked, rest normal again

[Pierkes]

Hi,

I have a form with 5 buttons. When a button is clicked i use the code;

Private Sub lbl_taxaties_Click()
SubForm.SourceObject = "frm1"
End Sub

to show the form "frm1" in the subform

In the "MouseDown" section i have the following code:

Private Sub lbl_taxaties_MouseDown(Button As Integer, Shift As Integer, x As
Single, y As Single)
If Not lbl_taxaties.SpecialEffect = 2 Then lbl_taxaties.SpecialEffect = 2
End Sub

In the "MouseDown" section i have the following code:

Private Sub lbl_taxaties_MouseUp(Button As Integer, Shift As Integer, x As
Single, y As Single)
If Not lbl_taxaties.SpecialEffect = 1 Then lbl_taxaties.SpecialEffect =
1
End Sub

On the other four buttons i use similar codes.
Now, here is my question;

When one button is clicked the rest of the buttons should return to their
"normal" state.
How can i do this automatically ?

Thanks for your help in advance
Pierre

 

[Arvin Meyer [MVP]]

Are you using buttons or labels. If labels, use the code samples at:

http://www.datastrat.com/Download/MouseMove.zip
--
Arvin Meyer, MCP, MVP
http://www.datastrat.com
http://www.accessmvp.com
http://www.mvps.org/access
Co-author: "Access 2010 Solutions", published by Wiley