你想实现什么？没看懂你代码的意思

Dim width As Integer = args(0)  \'模板宽度
Dim height As Integer = args(1)    \'模板高度
Dim ImagePath As String = args(2)   \'图片文件
Dim iSource As Image = getimage(ImagePath)
Dim ob As Bitmap = new Bitmap(width , height )
Dim g As  Graphics  = Graphics.FromImage(ob)
g.Clear(Color.WhiteSmoke)
g.DrawImage(iSource, new Rectangle(0,0, width , height ), 0, 0, iSource.Width, iSource.Height, GraphicsUnit.Pixel)
Dim dFile As String  = "g:\\test.jpg"
ob.Save(dFile)
Application.DoEvents()

Dim Info As new FileInfo(dFile)
Dim len As Integer = info.Length
width = width - 100
height = height - 100
Dim result As Boolean
If len < 204800         \'判断图片大小是否大于200KB
    result = True    \'返回不了这个TRUE
Else
    Vars("RecursiveCount") += 1  \'测试记录一下递归次数
    result = result OrElse Functions.Execute("ImageCompress",width,height ,ImagePath)   \'递归
End If

iSource.Dispose()
ob.Dispose()
g.Dispose()
Return result

是用老师的代码解决问题了，还是自己解决了，能否分享？