ZoomForms

Option Explicit
Private w As Long
Private Sub UserForm_Initialize()
w = Me.Width
End Sub

Private Sub UserForm_Resize()
Me.Zoom = (Me.Width / w) * 100
End Sub