Bonjour, essaye:
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 '
Public Sub RendreFormTjsVisible(MonForm As Object) SetWindowPos MonForm.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE End Sub Public Sub RendreFormPasTjsVisible(MonForm As Object) SetWindowPos MonForm.hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE End Sub
Il te suffit d'ajouter un timer pour savoir quand tu lances la sub RendreFormTjsVisible(MonForm As Object) et quel évènement te fait lancer RendreFormPasTjsVisible(MonForm As Object), un click, une touche, un autre délai, à toi de voir. M@chto
|