主题：能不能把jpg文件压成160*120，大小在10K至15K之间

For Each File As String In FileSys.GetFiles(tpath)
    Dim f As Io.FileInfo =  FileSys.GetFileInfo(File)
    Dim s As String
    s = f.name
    Dim img As image = getImage(file)
    Dim bmp As new bitmap(img,120,160)
    bmp.save(spath & s & ".jpg")
    bmp.Dispose
Next

怎样在上面设置BMP.JPG的像素，以达到控制图片文件大小的效果？

这是指高度和宽度，我说的是分辩率！