عرض كود التدرج اللوني وبدون API

السلام عليكم

كود بسيط لتدرج اللوني بدون API او اي ادوات

Private Sub Form_Load()
Form1.AutoRedraw = True

Const x1 As Byte = 0
Dim x2 As Long
x2 = Form1.Width

Dim Red As Byte
Dim Green As Byte
Dim Blue As Byte

 Red = 0: Green = 0: Blue = 0

For y = 0 To Form1.Width Step 10
Line (x1, y)-(x2, y), RGB(Red, Green, Blue)
If Blue = 254 Then
Blue = 0
Else
Blue = Blue + 1
End If
Next

End Sub

Private Sub Form_Resize()
Form_Load
End Sub

ان شاء الله تعجبكم الطريقة :D

الله يقدرني هل يومين و احط مثال اقوى لاني اشعر ان هذا الكود ضعيف نوع ما