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.