Bygga bild dynamiskt

Jag försöker lägga ihop flera Gif bilder och det fungerar nästan bra.. det är så att den ändrar kvalitet. hur gör man för att åtgäda detta..

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Put user code to initialize the page here
        Dim sFilnamn As String
        Dim i As Image
        Dim Xx As Integer
        Dim Nr As String = CStr(Val(Request.QueryString("nr")))
        Dim X As Integer
        Dim g As Graphics
        
       
        Dim bredd As Integer = Len(Nr) * 6

        Dim b As New Bitmap(bredd, 10, PixelFormat.Format24bppRgb)

        g = Graphics.FromImage(b)

        For X = 1 To Len(Nr)
            sFilnamn = Server.MapPath("counter/" & Mid(Nr, X, 1) & ".gif")
            i = Image.FromFile(sFilnamn)
            g.DrawImage(i, New Point(Xx, 0))
            Xx = Xx + i.Width
        Next X

        Response.ContentType = "image/gif"
        b.Save(Response.OutputStream, ImageFormat.Gif)
        b.Dispose()
    End Sub

b.Save(Response.OutputStream, ImageFormat.Gif)

Du skall kunna sköta komprimeringen från denna kodraden
Man skall kunna lägga till något efter ImageFormat.Gif,óch ngt mer