codice:
...
    if (Me.Width >= intLarMassima) And (Me.Height >= intAltMassima) and (mblnResize) then
        Frame1.Width = (Me.Width - Larghezza) + Frame1.Width
        Frame1.Height = (Me.Height - Altezza) + Frame1.Height
        Text1.Width = (Me.Width - Larghezza) + Text1.Width
        Command1.Top = (Me.Height - Altezza) + Command1.Top
    end if