Ich würde das ganz einfach mit der Prozentrechnung machen.
Mein Pseudocode (möglichst VB-ähnlich):
	Code:
	Function resize(orgX, orgY, orgWidth, orgHeight, newWidth, newHeight)
    Dim ret(0 to 2) As Integer
    ret(0) = orgX / orgWidth * newWidth
    ret(1) = orgY / orgHeight * newHeight
    return ret
End Function
 Ich beherrsche kein VisuaBasic und hoffe daher, dass ich es einigermaßne leserlich getroffen habe. Rückgabewert ist übrigens ein Array mit der X- und Y-Koordinate für die nue Auflösung. Simple Grundmathematik  . Ich hoffe das willst du.
. Ich hoffe das willst du.