'---------------------------------------------
'Retourne True si le UserForm a le System Menu
'---------------------------------------------
Function UserFormHasSystemMenu() As Boolean
Dim iStyle As LongPtr
'Get the basic window styles
iStyle = GetWindowLongPtr(UserFormHandle, GWL_STYLE)
'MsgBox iStyle
UserFormHasSystemMenu = CBool(iStyle And WS_SYSMENU)
End Function