Private Sub Form_Resize()
  Static bWorking As Boolean
 
  If bWorking Then Exit Sub
 
  bWorking = True
  If Me.WindowState = vbMinimized Then
    Dim oForm As Form
 
    On Error Resume Next
    For Each oForm In Forms
      oForm.WindowState = vbMinimized
    Next 
    On Error Resume Next
  End If
  bWorking = False
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de