Boutons réduction et plein écran sur un formulaire

Jour pluvieux, jour besogneux,

Bonjour à tous

Après pas mal de recherches, j'ai pu trouver un petit bout de code me permettant d'avoir ces deux boutons à côté de la croix sur mon formulaire, et cela fonctionne.
Lorsque j'ouvre ce formulaire, à l'ouverture de mon fichier, je rends l'application invisible (pour le confort visuel). J'aimerai lorsque je minimise mon formulaire rendre l'application à nouveau visible.

Je cherche mais ne trouve pas. D'où cette nouvelle question.

le code:
Public Sub toto(F As Object) ' --- permet l'affichage des boutons "réduire" "agrandir" ---
hWnd = FindWindow(vbNullString, F.Caption)
IStyle = GetWindowLong(hWnd, GWL_STYLE) Or &H70000
SetWindowLong hWnd, GWL_STYLE, IStyle
End Sub

Merci d'avance

Bonjour,

une autre solution serait de ne pas passer par un userform, mais dédier un onglet à la saisie, avec un bouton de masquage de la feuille.