Private Sub lblOpenPromoList_MouseMove(Button As Integer, Shift As Integer,
X As Single, Y As Single)
On Error Resume Next
    Call SetBold(Me, "lblOpenPromoList")
End Sub

Public Function SetBold(frm As Form, strControlName As String)
Const conBold = 700
Const conNormal = 400
    On Error Resume Next
    With frm(strControlName )
        .FontWeight = conNormal
        .ForeColor = 16711680
    End With
    err.clear
End Function