per ingrandire devi fare una cosa del tipo
codice:
Dim ctrl
For Each ctrl In Form.Controls
    ctrl.Width = ctrl.Width * 1.28
    ctrl.Height = ctrl.Height * 1.28
    ctrl.Top = ctrl.Top * 1.28
    ctrl.Left = ctrl.Left * 1.28
Next
mentre per rimpicciolire
codice:
Dim ctrl
For Each ctrl In Form.Controls
    ctrl.Width = ctrl.Width / 1.28
    ctrl.Height = ctrl.Height / 1.28
    ctrl.Top = ctrl.Top / 1.28
    ctrl.Left = ctrl.Left / 1.28
Next