求救！消失的窗体，在线等！

[Danger2000]

我的程序中有form1，form2两个窗体，还有一个模块。
Module Module1
Public frm1 As Form1
Public frm2 As Form2

Sub main()
frm1 = New Form1
Application.Run(frm1)
End Sub
End Module

在form1上有个按钮，代码如下：
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If frm2 Is Nothing OrElse frm2.IsDisposed Then
frm2 = New Form2
frm2.ShowDialog()
End If
End Sub

在form2上有个按钮，代码如下：
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Close()
End Sub

问题：如果关闭form2后，在form1上点击button1，form2就出不来了。请问怎么改？谢谢！

[yankewei]

把Me.Close()改成Me.dispose()就可以了。

[BeyondStudio]

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Close()
Me = Nothing
End Sub

[minajo21]

Private Sub Button1_Click

dim frm02 as new frm2

frm02.ShowDialog()

frm02 = nothing

[chinahth]

If frm2 Is Nothing OrElse frm2.IsDisposed Then
frm2 = New Form2
End If
frm2.active()
frm2.ShowDialog()