窗体最小化

      刚看到机房程序的时候，打开一个窗体，另一个窗体自动最小化，感觉非常好！

      这几天一直都在想怎样才能自动最小化，网上有这样一种方法

Private Sub form_activate()  
  Dim a As Form  
  For Each a In Forms  
  If a.Name <> Me.Name And a.Name <> MDIForm1.Name Then  
    a.WindowState = 1  
  End If  
  Next  
End Sub  

      试了很多次都不行。

     我一直都是让窗体borderstyle=3。

    后来换了一种方法，borderstyle=2

 

 Me.Top = 0
     Me.Left = 2500
     Me.Width = 13000
     Me.Height = 9000

先设定窗体大小，要不就非常小。

 在加上。

1. Private Sub Form_Deactivate()  '不在是活动窗口时发生  
2.     If Me.WindowState <> 1 Then  
3.         Me.WindowState = 1  
4.     End If  
5. End Sub

这样就可以了！