Mostrare alcune sfumature di un colore in una DrawingArea

L'esempio che segue disegnerà nella DrawingArea una striscia, nella quale saranno visibili alcune sfumature del rosso sino al nero:

Public Sub DrawingArea1_Draw()
 
 Dim i As Integer
 
 With Paint
   For i = 0 To 255
     .Brush = .Color(Color.RGB(i, 0, 0))
     .MoveTo(i, 50)
     .RelLineTo(0, DrawingArea1.H)
     .Stroke
   Next
   .End
 End With
 
End