Menggambar Objek Primitif dan Menyimpannya / Membuat File JPG dengan VB.Net

Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Drawing.Imaging

public class MainClass
public Shared Sub Main
Dim bm As New Bitmap(256, 256)

Dim gr As Graphics = Graphics.FromImage(bm)
gr.Clear(Color.White)
gr.DrawEllipse(Pens.Red, 0, 0, bm.Width - 1, bm.Height - 1)
gr.DrawLine(Pens.Green, 0, 0, bm.Width - 1, bm.Height - 1)
gr.DrawLine(Pens.Blue, bm.Width - 1, 0, 0, bm.Height - 1)

' Save the result as a JPEG file.

bm.Save("test.jpg", ImageFormat.Jpeg)

End Sub
End class