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

SW1wb3J0cyBTeXN0ZW0uRHJhd2luZwpJbXBvcnRzIFN5c3RlbS5EcmF3aW5nLkltYWdpbmcKSW1wb3J0cyBTeXN0ZW0uSU8KCk5hbWVzcGFjZSBDb25zb2xlQXBwbGljYXRpb24xCglDbGFzcyBQcm9ncmFtCgkJUHJpdmF0ZSBTaGFyZWQgU3ViIE1haW4oYXJncyBBcyBTdHJpbmcoKSkKCQkJRGltIGJtcCBBcyBOZXcgQml0bWFwKDQwMCwgMzUwKQoJCQlEaW0gYmJnIEFzIEJydXNoID0gTmV3IFNvbGlkQnJ1c2goQ29sb3IuQmxhY2spCgkJCURpbSBiZmcgQXMgQnJ1c2ggPSBOZXcgU29saWRCcnVzaChDb2xvci5HcmVlbikKCQkJRGltIGRyYXdlciBBcyBOZXcgUGVuKGJmZykKCQkJRGltIGcgQXMgR3JhcGhpY3MgPSBHcmFwaGljcy5Gcm9tSW1hZ2UoYm1wKQoJCQlEaW0gbnVtIEFzIEludGVnZXIgPSA2NAoJCQlEaW0gaSBBcyBJbnRlZ2VyID0gbnVtCgkJCWcuRmlsbFJlY3RhbmdsZShiYmcsIE5ldyBSZWN0YW5nbGUoMCwgMCwgYm1wLldpZHRoICsgMSwgYm1wLkhlaWdodCArIDEpKQoJCQlEaW0gaiBBcyBJbnRlZ2VyID0gbnVtICsgMzAsIGsgQXMgSW50ZWdlciA9IDAsIGwgQXMgSW50ZWdlciA9IDkwIC0gbnVtCgkJCVdoaWxlIGkgPiAwCgkJCQliZmcgPSBOZXcgU29saWRCcnVzaChDb2xvci5Gcm9tQXJnYihqLCBrLCBsKSkKCQkJCWRyYXdlciA9IE5ldyBQZW4oYmZnKQoJCQkJZy5EcmF3TGluZShkcmF3ZXIsIE5ldyBQb2ludChpICogYm1wLlNpemUuV2lkdGggXCBudW0sIDApLCBOZXcgUG9pbnQoYm1wLlNpemUuV2lkdGgsIGkgKiBibXAuU2l6ZS5IZWlnaHQgXCBudW0pKQoJCQkJZy5EcmF3TGluZShkcmF3ZXIsIE5ldyBQb2ludCgobnVtIC0gaSkgKiBibXAuU2l6ZS5XaWR0aCBcIG51bSwgYm1wLlNpemUuSGVpZ2h0KSwgTmV3IFBvaW50KGJtcC5TaXplLldpZHRoLCBpICogYm1wLlNpemUuSGVpZ2h0IFwgbnVtKSkKCQkJCWcuRHJhd0xpbmUoZHJhd2VyLCBOZXcgUG9pbnQoMCwgKG51bSAtIGkpICogYm1wLlNpemUuSGVpZ2h0IFwgbnVtKSwgTmV3IFBvaW50KGkgKiBibXAuU2l6ZS5XaWR0aCBcIG51bSwgMCkpCgkJCQlnLkRyYXdMaW5lKGRyYXdlciwgTmV3IFBvaW50KDAsIChpKSAqIGJtcC5TaXplLkhlaWdodCBcIG51bSksIE5ldyBQb2ludChpICogYm1wLlNpemUuV2lkdGggXCBudW0sIGJtcC5TaXplLkhlaWdodCkpCgkJCQlpIC09IDEKCQkJCWogLT0gMQoJCQkJayArPSAxCgkJCQlsICs9IDEKCQkJRW5kIFdoaWxlCgkJCWJtcC5TYXZlKENvbnNvbGUuT3BlblN0YW5kYXJkT3V0cHV0KCksIEltYWdlRm9ybWF0LlBuZykKCQlFbmQgU3ViCglFbmQgQ2xhc3MKRW5kIE5hbWVzcGFjZQ==

aHR0cDovL2kuLi5jb250ZW50LWF2YWlsYWJsZS10by1hdXRob3Itb25seS4uLmUuY29tL1dNWW9SIGluIFZC

http://i...content-available-to-author-only...e.com/WMYoR in VB