... Font("Arial", 10 , FontStyle.Bold), _ SystemBrushes.WindowText, New PointF ( 10 , 50) ) g.FillRectangle(New SolidBrush(Color.FromArgb(a, 255, 12 8, 255)), _ x, 20, 10 0, 50) g.FillRectangle(New ... = 10 0 Dim width As integer = 200 Dim r As New Random Dim x As integer = r.Next(75) Dim x1 As integer = 0 Dim a As integer = r.Next (15 5) Dim x2 As integer = r.Next ( 10 0) ... LinearGradientBrush(New Point(x2, 0) , _ New Point(x2+75, 50+ 30) , _ Color.FromArgb (12 8, 0, 0, 12 8), _ Color.FromArgb(255, 255, 255, 2 40) ), _ x2 , 50, 75, 30) bmp.Save(Response.OutputStream,...