bouton minimiser et maximiser ?

Essaye ça :

Private Declare Function FindWindowA Lib "User32" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowLongA Lib "User32" _
(ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLongA Lib "User32" _
(ByVal hwnd As Long, ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long

Sub remet_X()
Dim hwnd As Long
hwnd = FindWindowA(vbNullString, Application.Caption)
SetWindowLongA hwnd, -16, GetWindowLongA(hwnd, -16) Or &H80000
End Sub

AV

"Daniel" <pellet15@videotron.ca> a écrit dans le message news:
2R1ib.48925$Hk4.1212813@wagner.videotron.net...

Bonsoir a tous

J'ai par erreur perdue dans le coin droit haut les trois boutons
pour fermer maximiser et minimiser ou comment les retrouver ?