METTRE UNE FENETRE EN MODE TOUJOURS VISIBLE.

Option Explicit

'API nécessaire pour le mode "toujours visible"
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

'toujours visible
Public Function forward(who As Form) 'who correspond au nom de la form  | exemple: form1
Dim Resultat As Long
Const Flags = &H2 Or &H1 Or &H40 Or &H10
Resultat = SetWindowPos(who.hwnd, -1, 0, 0, 0, 0, Flags)
End Function

'annuler toujours visible
Public Function backward(who As Form)
Dim Resultat As Long
Const Flags = &H2 Or &H1 Or &H40 Or &H10
Resultat = SetWindowPos(who.hwnd, -2, 0, 0, 0, 0, Flags)
End Function