[RESOLVED] Minimize all forms when main form is minimized

[stevevb6]

I want to know how to minimize all open forms when i minimize the main form of my project. When there are a couple of forms visible, and i minimize the main form the others stay open. How can i minimize all the forms?

[iPrank]

Put this inside your main form:

Private Sub Form_Resize()
    If Me.WindowState = vbMinimized Then
        Dim frm As Form
        For Each frm In Forms
            If frm.Name <> Me.Name Then
                frm.WindowState = vbMinimized
            End If
        Next
    End If
End Sub

If it is possible, use a MDIform and load other forms as MDIChild. It will solve you from this problem.

[brucevde]

In your main form.

Private Sub Form_Resize()
   Dim f As Form
   If Me.WindowState = vbMinimized Then
      For Each f In Forms
        If Not (f Is Me) Then
            f.WindowState = vbMinimized
        End If
      Next
   End If
End Sub

[stevevb6]

thanks, works great!