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