Ah, using DrawImage is better here is how you can do it.
'create a new bitmap that you will put the scaled version of original on
Dim newimg As New Bitmap(320, 240) 'pic the size you want
Dim gr As Graphics = Graphics.FromImage(newimg) 'get the graphics for it
'now load the original and draw it onto the new bitmap
gr.DrawImage(New Bitmap("path to the original picture file"), 0, 0, 320, 240)
newimg.Save("new file name")
gr.Dispose() 'never forget this step :)