Mostrare tutte le sfumature di un colore

Da Gambas-it.org - Wikipedia.

L'esempio che segue disegnerà nella DrawingArea una striscia, nella quale saranno visibili le sfumature del verde:

Public Sub DrawingArea1_Draw()

 Dim i As Short


   With Paint
    For i = 0 To 255
     .Brush = Paint.Color(Color.RGB(1, i, 0))
     .MoveTo(i, 50)
     .RelLineTo(0, 100)
     .Stroke
    Next
     .End
   End With

End