من أهم استخداماته إظهار أسماء الأشخاص في تسمية موضوعة في مقطع رأس النموذج وهذا يفيد خاصة للنماذج متعددة الصفحات .
1- ضع مربع عنوان باسم اسم مربع العنوان على النموذج ولاحظ أنه ينبغي أن يكون بحجم يتسع لكامل النص المطلوب ظهوره فيه .
2- في إجراء عند عداد الوقت ضع الكود التالي :
Const نص = "اللهم أنصر أخواننا الأفغان وأذل المشركين والكفار .... آمين"
Static عدد_الأحرف
If [اسم مربع العنوان].Caption = نص Then
عدد_الأحرف = 1
[اسم مربع العنوان].Caption = Left(نص, عدد_الأحرف)
Exit Sub
End If
عدد_الأحرف = عدد_الأحرف + 1
[اسم مربع العنوان].Caption = Left(نص, عدد_الأحرف)
Static يمين As Boolean
If [اسم مربع العنوان].Caption = نص And يمين = True Then
عدد_الأحرف = 1
[اسم مربع العنوان].Caption = ""
يمين = False
End If
If يمين = True Then
عدد_الأحرف = عدد_الأحرف + 1
[اسم مربع العنوان].TextAlign = 1
'[اسم مربع العنوان].ForeColor = Timer() * 11233
[اسم مربع العنوان].Caption = Right(نص, عدد_الأحرف)
End If
If [اسم مربع العنوان].Caption = نص And يمين = False Then
عدد_الأحرف = 1
[اسم مربع العنوان].Caption = ""
يمين = True
End If
If يمين = False Then
عدد_الأحرف = عدد_الأحرف + 1
[اسم مربع العنوان].TextAlign = 3
[اسم مربع العنوان].Caption = Left(نص, عدد_الأحرف)
End If
' لتغيير لون الخط تلقائيا مكن السطر التالي
[اسم مربع العنوان].ForeColor = Timer() * 11233
'الرقم المضروب فيه ضع أي رقم بشرط أن لايكون كبيراً جداً (يفضل أربع خانات فأقل).
'وإذا رغبت في تغيير ألوان الخلفية مكن السطر التالي واجعل نمط الخلفية للتسمية عادي
[اسم مربع العنوان].BackColor = Timer() * 22233
اجعل الفاصل الزمني لعداد الوقت 200 أو قريبا من هذا الرقم .
وللجميع التحية
