Umrechnung von Pixeln in anderer Auflösung

[IRET]

Ich würde das ganz einfach mit der Prozentrechnung machen.
Mein Pseudocode (möglichst VB-ähnlich):

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.