Non stai facendo la giusta considerazione. Aumentando le dimensioni dell'immagine i pixel vengono aggiunti, riducendo l'immagine i pixel vengono persi perchè si mixano tra loro quelli vicini. Puoi fare un esperimento con due picture. Su una carichi un'immagine (Picture1), sull'altra (Picture2) più piccola fai il paintpicture e poi salvi l'immagine ottenuta.
codice:
Private Sub Command1_Click()
Picture2.PaintPicture Picture1.Image, 0, 0, Picture2.ScaleWidth, Picture2.ScaleHeight
Picture2.Refresh
SavePicture Picture2.Image, "c:\immagine.bmp"
End Sub