أنشاء طبقات رسومية على النموذج

ضع هذا الكود في قسم التصريحات General
Private Sub GradientFill()
Dim i As Long
Dim c As Integer
Dim r As Double
r = ScaleHeight / 3.142
For i = 0 To ScaleHeight
c = Abs(220 * Sin(i / r))
Me.Line (0, i)-(ScaleWidth, i), RGB(c, c, c + 30) 'Notice the bias To blue. You can be more subtle by reducing this number (try 10). Try other colours too.
Next
End Sub

وهذا الكود في حدث Resize للفورم
GradientFill

شكراً أخي HnHn على هذه الواجهة الرسومية الجميلة.

وأتمنى أن تفيدنا دائماً بمشاركاتك .

وشكراً مرة أخرى .