公共模块:
Module startup
Public obj2 As New Form2
Public obj3 As New Form3
End Module
FORM1:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If obj2 Is Nothing Or obj2.IsDisposed Then
obj2 = New Form2
obj2.Show()
End If
obj2.Activate()
obj2.Show()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If obj3 Is Nothing Or obj3.IsDisposed Then
obj3 = New Form3
obj3.Show()
End If
obj3.Activate()
obj3.Show()
End Sub
FORM2:'在FORM2中关闭FORM3
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
obj3.Close()
End Sub
FORM3:'在FORM3中关闭FORM2
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
obj2.Close()
End Sub