Bold label when on focus

[oxicottin]

Hello, I been using the VBA I found to highlight a control that has focus and it works great except I want to have the controls label be bold also. I also wanted to know how to be able to use this in the continuous portion of a form without it highlighting every control in each row that has the same control name.

'======================================================================================
'Each Control will need “HighlightOnFocus” in its Tag property. and called from forms
' OnLoad Event using SetFocusHandlers Me
'======================================================================================
Public Function SetFocusHandlers(ByRef frm As Form)
    Dim ctl As Control
    For Each ctl In frm
        If ctl.Tag = "HighlightOnFocus" Then
            ctl.OnGotFocus = "=HandleFocus([" & ctl.Name & "], True)"
            ctl.OnLostFocus = "=HandleFocus([" & ctl.Name & "], False)"
        End If
    Next
    
End Function

Public Function HandleFocus(ByRef ctl As Control, ByVal blnFocus As Boolean)
 
    If blnFocus = True Then
        ctl.BorderColor = RGB(255, 0, 0)
        ctl.BorderWidth = 2
    Else
        ctl.BorderColor = RGB(122, 138, 153) 
        ctl.BorderWidth = 1
    End If
End Function

[OBP]

As far as I know you cannot isolate an object's condition to one record on a continuous form, it is a bug that MS have never fixed.
Many years ago I did see some complicated code that masks the records but that was using the background colour not the field's controls.