نماذج بجميع الوان الطيف تصميم الوان النماذج بالارقام

هذه هديه متواضعه لكم امل ان تحوز على رضاكم لا سيما ان الاكسيس بشاشته الرماديه التي لا يمكن تغييرها الا بالكود فإليكم الطريقه بالتفصيل كل ما عليك هو استيراد الوحدات النمطيه الثلاث الى نموذجك ومن ثم نسخ الكود عند حدث تغير الحجم والتعديل في الارقام الخاصه به .
يوجد في الكود ثلاثة ارقام بداية وثلاثة ارقام نهايه عدل فيها على كيفك لينتج لديك ملايين الالوان هذه الالوان على شكل بتماب BitMap وحجمها لا يتعدى 40 بايت بدلا من وضع صوره او الوان خلفيه للنموذج حسب الكود الموضح بالاسفل

'ضع هذا الكود في خانة الجينرال في اعلى الصفحه من حدث عند تغيير الحجم
Option Compare Database
Option Explicit

'ضع هذا الكود في حدث عند تغير الحجم
Private Sub Form_Resize()
If Me.WindowHeight < 500 Then Exit Sub
GradientBackground Me, RGB(32, 0, 64), RGB(180, 0, 255), GRADIENT_FILL_RECT_V
End Sub

Option Compare Database
Private Sub Form_Resize()
End Sub