I use the standard Access Switchboard with 8 buttons. In the mouseover event of each button I have the label text change by following code:
Expand|Select|Wrap|Line Numbers
- Private Sub Option1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
- On Error Resume Next
- Call SetBold(Me, "optionlabel1")
- End Sub