Изменение размера формы, ее содержимого и любых других аспектов формы (окна)

---

Привет.

Я пытаюсь усовершенствовать сценарий, который использую


Я не новичок в vb, но только начинаю понимать некоторые области.

Я использую Visual Studio 2019 Profesional.


Идея состоит в том, чтобы сделать содержимое браузера растянутым и формально изменить размер вместе с остальным содержимым активной формы.

Что я уже пробовал:

<pre>Option Strict On

Public Class Form1

    Dim CW As Integer = Me.Width ' Current Width
    Dim CH As Integer = Me.Height ' Current Height
    Dim IW As Integer = Me.Width ' Initial Width
    Dim IH As Integer = Me.Height ' Initial Height

    Private Sub Form1_Resize(ByVal sender As Object,
            ByVal e As System.EventArgs) Handles Me.Resize

        Dim RW As Double = (Me.Width - CW) / CW ' Ratio change of width
        Dim RH As Double = (Me.Height - CH) / CH ' Ratio change of height

        For Each Ctrl As Control In Controls
            Ctrl.Width += CInt(Ctrl.Width * RW)
            Ctrl.Height += CInt(Ctrl.Height * RH)
            Ctrl.Left += CInt(Ctrl.Left * RW)
            Ctrl.Top += CInt(Ctrl.Top * RH)
        Next

        CW = Me.Width
        CH = Me.Height


    End Sub

	Private Sub Form1_Load(ByVal sender As System.Object,
            ByVal e As System.EventArgs) Handles MyBase.Load

        IW = Me.Width
        IH = Me.Height

---