Advertisement
2002ASP Graphics #5144

Very Cool Graphics With Lines using only 11 lines of code!!

This code draws a nice, very cool gradient field with a nice sidebar using line(see screenshot) Please rate it! (Thnx!).

AI

AI Summary: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.

Source Code
original-source
Private Sub Form_Load()
Red = 0
End Sub
Private Sub Timer1_Timer()
Red = Red + 1
If Red < 255 Then
Me.ForeColor = RGB(0, Red, 0)
ElseIf Red > 254 Then
End If
lY1 = lY1 + 3
Me.Line (0, lY1)-(Me.ScaleWidth, lY1)
Me.Line (ly1, 0)-(Me.ScaleHeight, lY1)
End Sub
Original Comments (3)
Recovered from Wayback Machine