menu buttons problem - one clicked, rest normal again

  • Thread starter Thread starter Pierkes
  • Start date Start date
P

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
 
Back
Top