VB_2014_SLIP 13

 

Slip 13_1

Private Sub Form_Load()

AutoRedraw = True

For Y = 0 ToScaleHeight

     Line (-1, Y - 1)-(ScaleWidth, Y + 1), RGB(10, 20, 255 - (Y * 255) \ ScaleHeight), B

Next Y

End Sub