Fra aspImage til ShotGraph

Jeg har i øjeblikket denne stump kode hvor jeg resizer et billede og laver et thumbnail med ASPImage.:

Set Image = Server.CreateObject("AspImage.Image")
Image.LoadImage Server.MapPath("/images/Pictures/" & strFilename)
intWidth = 400
If (Image.MaxX > intWidth) OR (Image.MaxY > intWidth) Then
    If(Image.MaxX > Image.MaxY) Then
        intRatio = ((intWidth * 100) / Image.MaxX)
        intNewY = CInt(Image.MaxY * (intRatio / 100))
        Image.ResizeR intWidth, intNewY
        Image.ImageFormat = 1           
    Else
        intRatio = ((intWidth * 100) / Image.MaxY)
        intNewX = CInt(Image.MaxX * (intRatio / 100))
        Image.ResizeR intNewX, intWidth
        Image.ImageFormat = 1
    End if
End If
Image.FileName = Server.MapPath("/images/Pictures/" & strFilename)
Image.SaveImage
Image.LoadImage Server.MapPath("/images/Pictures/" & strFilename)
intRatio = ((40 * 100) / Image.MaxX)
intNewY = CInt(Image.MaxY * (intRatio / 100))
Image.ResizeR 40, intNewY
Image.ImageFormat = 1
Image.FileName = Server.MapPath("/images/Pictures/thumbnails/" & strFilename)
Image.SaveImage
Set Image = Nothing

Nu vil jeg gerne skifte komponent til ShortGraph, men jeg kan ikke finde nogle kodeeksempler. Er der nogen herinde der kan hjælpe mig med en omskrivning.