Dim enc As New AnimatedGifEncoder
        Dim ms As New MemoryStream
        Dim f As New Font("Verdana", 10)
        enc.Start(ms)
        enc.SetRepeat(0)
        For x As Integer = 1 To 10
            enc.SetDelay(x * 100)
            Dim objBitmap As Bitmap
            If x = 1 Then
                objBitmap = New Bitmap(200, 50)
            Else
                objBitmap = New Bitmap(20, 20)
            End If
            Using objGraphics As Graphics = Graphics.FromImage(objBitmap)
                objGraphics.DrawString(x.ToString, f, Brushes.White, 0, 0)
            End Using
            If x <> 1 Then objBitmap.MakeTransparent(Color.Black)
            enc.AddFrame(objBitmap)
        Next
        enc.Finish()
        Dim fs As New FileStream("f:\anitest.gif", FileMode.Create, FileAccess.Write)
        ms.Position = 0
        ms.CopyTo(fs)
        fs.Dispose()
        ms.Dispose()