Redimensionner un userform dans vba

Bonjour à tous,

Je souhaiterais faire apparaître un Userform en plein écran sur toutes résolutions d'écrans confondues.
J'ai inscrit un code copié par internet.
Il me semble qu'il ne fonctionne pas car le user ne peut apparaître à sa forme d'origine. En effet seule la croix et la barre bleue de la fenêtre s'affichent.
Voici le code:

Dim RW As Single, RH As Single
RW = ScreenWidth * PointsPerPixel / Me.Width
RH = ScreenHeight * PointsPerPixel / Me.Height
Me.Width = ScreenWidth * PointsPerPixel
Me.Height = ScreenHeight * PointsPerPixel
Dim Ctl As MSForms.Control
For Each Ctl In Me.Controls
Ctl.Move Ctl.Left * RW, Ctl.Top * RH, Ctl.Width * RW, Ctl.Height * RH
Next

Pourriez-vous me suggérer une autre proposition?
Merci d'avance.
Amicalement.
Mathieu