Redimensionnement d'un UserForm (Width.Min)

Bonjour le forum

Je rencontre un petit problème dans mon projet. J'autorise les utilisateurs à pouvoir redimensionner un UserForm. Ce que je voudrais (si c'est possible),est de fixer une valeur minimal pour Width. L'objectif étant d’empêcher un utilisateur de réduire de trop la largeur du UserForm. Je ne sais absolument pas comment m'y prendre.

Ci dessous le code utilisé pour permettre de redimensionner (peut être utile si c'est là qu'il faut apporter les modifs)

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

'Ce code se trouve dans un 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

Voilà où j'en suis pour le moment, je ne trouve pas ça très propre comme code Si quelque à une vrai solution ?

If UserForm1.Width < 917 Then MsgBox "Impossible de réduir plus la fenêtre.", vbInformation, "Taille de la fenêtre": UserForm1.Width = 917
If UserForm1.Height < 401 Then MsgBox "Impossible de réduir plus la fenêtre.", vbInformation, "Taille de la fenêtre": UserForm1.Height = 401