Public Sub Resize()
'Si considera risoluzione base, con la quale e' 'stato progettato il progetto, la 800x600 On Error Resume Next Dim ctl as Control TWidth = Screen.Width \ Screen.TwipsPerPixelX THeight = Screen.Height \ Screen.TwipsPerPixelY ResizeX = TWidth / 800 ResizeY = Theight / 600 Me.Width = Me.Width * ResizeX Me.Height = Me.Height * ResizeY For Each ctl in Me.Controls ctl.Left = ctl.Left * ResizeX ctl.Top = ctl.Top * ResizeY ctl.Height = ctl.Height * ResizeY ctl.Width = ctl.Width * ResizeX Next ctl End Sub |