'Button highlighting comand
Private Function ButtonSetter(CtlName As String)
Dim ctl As Control
For Each ctl In Me.Controls
If ctl.ControlType = acCommandButton Then
If ctl.NAME = CtlName Then
ctl.ForeColor = vbBlue
Else
ctl.ForeColor = vbBlack
End If
End If
Next ctl
End Function