在FormA的UnoLoad事件中:
FormB.Show

解决方案 »

  1.   

    在Form1的UnoLoad事件中:
    Form2.WindowState = 2
      

  2.   

    'Form A is start run object
    Option ExplicitPrivate Sub Form_Load()
    FormA.Show
    FormB.Show
    FormA.Caption = a
    FormB.Caption = b
    End SubPrivate Sub Form_Resize()
    If FormA.WindowState = 1 Then FormB.WindowState = 2
    End SubPrivate Sub Form_Unload(Cancel As Integer)
    End
    End Sub
    ____________________________________________________________________
    'code of form b
    Option ExplicitPrivate Sub Form_Resize()
    If FormB.WindowState = 1 Then FormA.WindowState = 2
    End SubPrivate Sub Form_Unload(Cancel As Integer)
    End
    End Sub
      

  3.   

    FormA中
    Private Sub Form_Unload(Cancel As Integer)
        FormB.WindowState =2
    End Sub