This solution works.  Is there a better way though?

Private Sub BoldLabel(ByRef LabelName as String)
     Dim ControlName as Control

    For Each ControlName in Me.frmInformation.Controls

        If ControlName.Name = LabelName then
           ' ...make the label bold...
            Exit Sub
        End If

    Next  ' Next ControlName

End Sub  ' Bold Label


newbie


P.S.
   Thanks a lot R.B. for pointing me in the right direction  :)

Reply via email to