UserForm Resize - Relation entre résolution et Zoom

Bonjour le forum

J'ai un module dans lequel se trouve le code ci-dessous. Ce dernier me permet d'ajuster la taille du UserForm.

Ce que je souhaite c'est, trouver une relation qui ajusterais le zoom sur le UserForm en fonction des dimensions du Userform par rapport à la résolution de l'écran.

Code du module standard

Private Declare Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetWindowLong Lib "User32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "User32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Const GWL_STYLE As Long = (-16)  'The offset of a window's style
Private hWnd, IStyle
Public Sub toto(F As Object)
    hWnd = FindWindow(vbNullString, F.Caption)
    IStyle = GetWindowLong(hWnd, GWL_STYLE) Or &H70000
    SetWindowLong hWnd, GWL_STYLE, IStyle
End Sub

Dans le UserForm que je souhaite redimensionner je pensais travailler avec une formule de ce type, mais ça ne fonctionne pas du tout, c'est là que j'ai besoins de vos lumières

Private Sub Userform_resize()
      Me.Zoom = (Application.Height / Me.Height) * 100
End Sub

Par avance, merci de l’intérêt porté au sujet