try this
create a array of the command button
Option Explicit
Private Sub Command1_Click(Index As Integer)
Select Case Index
Case 0
MsgBox "Button1"
Case 1
MsgBox "Button2"
Case 2
MsgBox "Button3"
End Select
End Sub
Private Sub Command1_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1(Index).FontBold = True
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim i As Integer
With Command1
For i = 0 To .Count - 1
.Item(i).FontBold = False
Next
End With
End Sub