[Ezril5]

تغير لون الخط حدث عند الوقت ؟! 
الاصح تنسيق شرطي 
1- يكون الحقل والخط كليهما أسود
2-كود تنسيق الشرطي وتحدد الخط أحمر ولست بوكس اسود ( الحقل )

كود :

[TT]="استقالة"
[PP]="اصدار"

فقط ؟! هذا هو أيضا طلبك 
================================================================================================================================
وطلب تغير أي عنصر او كائن والاصح بتسمية Button او List_Box من غير تحديد العام وصف فقط 

ينفذ كود الوقت كان فرعي او نموذج آخر في الخلف عند انتهاء التحميل او تصفية بمعادلة آخرى 

درج الكود من فحص الى التنفيذ 

كود :

Private Sub Form_Timer()
    On Error Resume Next

Dim give_N As String
'==========================(عدد الحقل المطلوبة)
Dim Button As string
Dim Button1 As string

'========================================(جلب اسم الفورم الحالي تلقائي)
give_N = Application.CurrentObjectName
'========================================(تحديد الحقل (من النموذج) وان تنفيذ من النموذج وليس جدول؟!)
Button = Me.TT'me.(اكتب اسم الحقل المطلوب)
Button1 = Me.PP
'===============================================(تنفيذ بهذا الامر
'Forms(give_N).Controls(Button)

'================================================(Cod#1)
Public Function Pause_ForeColor1 ()
If Forms(give_N).Controls(Button).ForeColor = vbRed Then
'================================(كليهم اسود الاخط والبوكس ؟!) يا استاذ اعمل معه عدم التمكين او كابتشن
        Forms(give_N).Controls(Button).ForeColor = vbBlack
        Forms(give_N).Controls(Button).BackColor = vbBlack
 Else
'================================(احمرالاخط واسود البوكس ؟!)
        Forms(give_N).Controls(Button).ForeColor = vbRed
        Forms(give_N).Controls(Button).BackColor = vbBlack
End If
End Function

'================================================(Cod#2)
Public Function Pause_ForeColor2 ()
If Forms(give_N).Controls(Button1).ForeColor = vbRed Then
'================================(كليهم اسود الاخط والبوكس ؟!) يا استاذ اعمل معه عدم التمكين او كابتشن
        Forms(give_N).Controls(Button1).ForeColor = vbBlack
        Forms(give_N).Controls(Button1).BackColor = vbBlack
 Else
'================================(احمرالاخط واسود البوكس ؟!)
        Forms(give_N).Controls(Button1).ForeColor = vbRed
        Forms(give_N).Controls(Button1).BackColor = vbBlack
End If
End Function

'==============================================='
If Me.TT = "استقالة" then
Pause_ForeColor1
End IF

If Me.pp = "اصدار" then
Pause_ForeColor2
End IF

'=====================================================(OR أو )
 '=================================================(اذا كان طلبك كليهما )
Dim Number1 As Longe
Dim Number2 As Longe
If Me.TT = "استقالة" then
Number1 =1
else
Number1 =0
End IF

If Me.pp = "اصدار" then
Number2 =1
else
Number2 =0
End IF

'=====================================================(الشرط)
IF Number1 + Number2 = 2 Then
Pause_ForeColor1
Pause_ForeColor2
End Sub

لم اجرب ولكن اعتقد ان هو طلبك