Sub Process_Globals
' Designer Scripts AutoScale formula
' Delta = ((100%x + 100%y) / (320dip + 430dip) - 1)
' Rate = 0.5 'value between 0 to 1.
' Scale = 1 + Rate * Delta
Public Rate As Double
Rate = 0.3 'value between 0 to 1.
Private cScaleX, cScaleY, cScaleDS As Double
End Sub