投稿者 neptune  (社会人) 投稿日時 2009/1/21 03:26:23
Form上にCommandを3個配置
面倒だけど一番基本的な奴。


Option Explicit

Private Sub Command1_GotFocus()
    Command1.FontBold = True
End Sub

Private Sub Command1_LostFocus()
    Command1.FontBold = False
End Sub

Private Sub Command2_GotFocus()
    Command2.FontBold = True
End Sub

Private Sub Command2_LostFocus()
    Command2.FontBold = False
End Sub

Private Sub Command3_GotFocus()
    Command3.FontBold = True
End Sub

Private Sub Command3_LostFocus()
    Command3.FontBold = False
End Sub