چک کردن کنترل های یک فرم و تغییر رنگ تکست باکس موجود

Use the ForeColor property to specify the color for text in a control. Read/write Long.

For intI = 0 To Forms("Employes").Controls.Count - 1

 Set ctl = Forms("Employes").Controls(intI)

 If TypeOf ctl Is TextBox Then

 ctl.ForeColor = vbRed

 ctl.FontItalic = True

 ctl.FontBold = True

 End If

Next intI