Create Gif file : Gif « 2D Graphics « VB.Net Tutorial

1. VB.Net Tutorial
2. 2D Graphics
3. Gif

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)

        bm.Save("test.gif", ImageFormat.Gif)

   End Sub
End class