Dim c As Integer
        Dim originalBreite As Integer
        Dim originalHöhe As Integer
        Dim neueBreite As Integer
        Dim neueHöhe As Integer
        c = ComboBox1.Text
        originalBreite = oBreite.Text
        originalHöhe = oHöhe.Text
 
        neueBreite = (originalBreite / 100) * c
        neueHöhe = (originalHöhe / 100) * c
 
MoveWindow(wHandle, 0, 0, neueBreite, neueHöhe, 1)