nBreite.Text = (Breite.Text / 100) * ComboBox1.Text
        nHöhe.Text = (Höhe.Text / 100) * ComboBox1.Text
    End Sub
 
    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        Dim wHandle As Object
        System.Windows.Forms.Application.DoEvents()
        wHandle = FindWindow(vbNullString, TextBox1.Text)
        MoveWindow(wHandle, 0, 0, nBreite.Text, nHöhe.Text, 1)
    End Sub