1
2
3
4
5
|
Dim BaseRectangle As New Rectangle(0, 0, ptbtiles.Width - 1, ptbtiles.Height - 1)
Dim Gradient_Brush As New System.Drawing.Drawing2D.LinearGradientBrush(BaseRectangle, Color.Red, Color.LightSlateGray, System.Drawing.Drawing2D.LinearGradientMode.Vertical)
e.Graphics.FillRectangle(Gradient_Brush, BaseRectangle)
|