Imports System.Drawing
Imports System.Drawing.Imaging
Imports System.IO

Namespace ConsoleApplication1
	Class Program
		Private Shared Sub Main(args As String())
			Dim bmp As New Bitmap(400, 350)
			Dim bbg As Brush = New SolidBrush(Color.Black)
			Dim bfg As Brush = New SolidBrush(Color.Green)
			Dim drawer As New Pen(bfg)
			Dim g As Graphics = Graphics.FromImage(bmp)
			Dim num As Integer = 64
			Dim i As Integer = num
			g.FillRectangle(bbg, New Rectangle(0, 0, bmp.Width + 1, bmp.Height + 1))
			Dim j As Integer = num + 30, k As Integer = 0, l As Integer = 90 - num
			While i > 0
				bfg = New SolidBrush(Color.FromArgb(j, k, l))
				drawer = New Pen(bfg)
				g.DrawLine(drawer, New Point(i * bmp.Size.Width \ num, 0), New Point(bmp.Size.Width, i * bmp.Size.Height \ num))
				g.DrawLine(drawer, New Point((num - i) * bmp.Size.Width \ num, bmp.Size.Height), New Point(bmp.Size.Width, i * bmp.Size.Height \ num))
				g.DrawLine(drawer, New Point(0, (num - i) * bmp.Size.Height \ num), New Point(i * bmp.Size.Width \ num, 0))
				g.DrawLine(drawer, New Point(0, (i) * bmp.Size.Height \ num), New Point(i * bmp.Size.Width \ num, bmp.Size.Height))
				i -= 1
				j -= 1
				k += 1
				l += 1
			End While
			bmp.Save(Console.OpenStandardOutput(), ImageFormat.Png)
		End Sub
	End Class
End Namespace