codice:
dim comm as Control 
For Each comm In Controls 
   if typename(conn)<>"Menu" then
      comm.Width = comm.Width * (currW / W) 
      comm.Height = comm.Height * (currH / H) 
      comm.Left = comm.Left * (currW / W) 
      comm.Top = comm.Top * (currH / H) 
   end if
Next