Hi gary,
Private Declare Function IsIconic& Lib "user32" (ByVal hWnd&)

Private Sub UserForm_Resize()
Dim s&: s = Application.WindowState
Dim h&: h = FindWindow(vbNullString, Application.Caption)
If IsIconic(hWnd) Then
Application.WindowState = xlMinimized
Else
Application.WindowState = s
End If
End Sub

MP

"gary" a écrit dans le message de news:
...
I have a VBA application that displays a UserForm that has a Minimize
button
on it. When I click it, the UserForm minimizes as it should but the Excel
workbook that contains the UserForm does not. I can not even click on the
minimize button on the workbook because it is grayed out (I think because
the
UserForm has focus).

How do I make the Excel workbook that contains the UserForm that was
launched also minimize when I minimize the UserForm?

Thanks,

Gary