Module Main
Sub main()
Dim f1 As New Form1()
f1.ShowDialog()
End Sub
Public Sub makeNewForm(ByVal _f1 As Form1)
_f1.Dispose()
Dim f1 As New Form1()
f1.ShowDialog()
End Sub
End Module
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
makeNewForm(Me)
End Sub
End Class