'---------------------------------------------------------------------------------------
' Module : FermetureForm
Option Private Module
'Pas de croix
Declare Function GetWindowLongA Lib "user32" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Declare Function SetWindowLongA Lib "user32" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Declare Function FindWindowA Lib "user32" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
'*********************
Sub Pasdecroix(USF As UserForm)
'---------------------------------------------------------------------------------------
' Procedure : Pasdecroix
'---------------------------------------------------------------------------------------
'
Dim hWnd As Long
10 hWnd = FindWindowA("Thunder" & IIf(Application.Version Like "8*", _
"X", "D") & "Frame", USF.Caption)
20 SetWindowLongA hWnd, -16, GetWindowLongA(hWnd, -16) And &HFFF7FFFF
End Sub