Module Module1
Public frm1 As New Form1
Public frm2 As New Form2
End Module
form1中Button1_Click
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If frm2 Is Nothing Or frm2.IsDisposed Then
frm2 = New Form2
End If
frm2.Show()
End Sub