Imports System
Imports System.Drawing
Imports System.Drawing.Imaging
Imports Gif.Components
lsOutputFilePath = Server.MapPath("ouput.gif")
Dim loAGifEncoder As New AnimatedGifEncoder
loAGifEncoder.Start(lsOutputFilePath)
loAGifEncoder.SetDelay(500)
loAGifEncoder.SetRepeat(0)