طباعة النص بالوان قوس قزح

السلام عليكم ...

[gl]اولاً كل عام وانتم بخير وعساكم من عوادة ان شاء الله [/gl]

ثانياً اخترت لكم من جعبتي هذا الكود الرائع الذي يقوم بطباعة النص علىالنموذج بالوان قوس قزح ( اللوان الطيف ) ....

لعمل ذلك فقط انسخ الكود التالي والصقة في نافذة الشيفرة او حمل ملف الكود من وصلة التحميل في الاسفل ......

Sub Form_Paint()

Dim I As Integer, X As Integer, Y As Integer

Dim C As String

Cls

For I = 0 To 91

X = CurrentX

Y = CurrentY

C = Chr(I)

CurrentX = X

CurrentY = Y

ForeColor = RGB(Rnd * 256, Rnd * 256, Rnd * 256)

Print "بسم الله الرحمن الرحيم"

Next

End Sub

وصــلـة الــتـحــمـيـل