Private Sub UserForm_Activate()
Dim SvgMeWidth!, SvgMeHeight!, NewSvgMeWidth!, NewSvgMeHeight!, RX!, RY!
SvgMeWidth! = Me.Width: SvgMeHeight! = Me.Height
With Application
Me.Top = .Top
Me.Left = .Left
Me.Height = .Height
Me.Width = .Width
End With
NewSvgMeWidth! = Me.Width: NewSvgMeHeight! = Me.Height
RX! = NewSvgMeWidth! / SvgMeWidth!: RY! = NewSvgMeHeight! / SvgMeHeight!
Dim Ctrl As MSForms.Control
For Each Ctrl In Me.Controls
Ctrl.Move Ctrl.Left * RX!, Ctrl.Top * RY!, Ctrl.Width * RX!, Ctrl.Height * RY!
Next
End Sub