Private Const SWP_NOSIZE As Long = &H1
Private Const SWP_NOMOVE As Long = &H2
Private Const SWP_NOACTIVATE As Long = &H10
Private Const SW_SHOWNOACTIVATE As Long = 4&
Private Const HWND_TOPMOST As Long = (-1&)
'
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal CX As Long, ByVal CY As Long, ByVal wFlags As Long) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Public Sub TopMostNoFocus(ByVal lHandle As Long)
' applique NOFOCUS à la fenêtre
Call ShowWindow(lHandle, SW_SHOWNOACTIVATE)
' applique premier plan permanent
Call SetWindowPos(lHandle, HWND_TOPMOST, 0&, 0&, 0&, 0&, SWP_NOMOVE Or SWP_NOSIZE Or SWP_NOACTIVATE)
End Sub