声明一个全局变量。
dim f1 as new form1
dim f2 as new form2
=========================
单击的时候判定窗体是否已经打开,如果打开就关闭它
如在fom1单击
lf f2 ls Nothing Or f2.lsDisposed Then'判断对象是否被销毁
frm2 as new frm2
end if
me.hide
f2.show
==================================
详细的你可以看看版主写的文章
http://myforum.66ip.com/view.aspx?id=20(我转载的)