This code will change the font of the command button to bold when the mouse moves over it and it will become default when the mouse moves out. You can change anything for command button or any other GUI control.
---------------------------------
Put a commandbutton on the center of the form and put this code in:
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.FontBold = True
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.FontBold = False
End Sub
Comments