showdialog 独占 此时无法操作A 只能等B关闭才能操作 适合你的要求
[/Quote]
A中打开B的点击事件:
Private Sub referBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles referBtn.Click
Dim FormConsultList As ConsultList
Me.Close()
FormConsultList = New ConsultList()
FormConsultList.ShowDialog(Me)
End Sub
B中返回A的代码:
Me.Close()
'ProjectStaffMaintenance.ShowDialog(Me)