VB 怎样实现点击按钮至弹出一次窗体，而不是点击同一按钮弹出多个同一个窗体

声明全局变量
----------------
VB.NET: Private frmOpen As frmXXXX = Nothing（这个frmXXXX就是你要被显示的窗体名，下同）
----------------
VB6: Private frmOpen As frmXXXX
然后在Form_load()里面写
frmOpen = Nothing
----------------
然后在点击按钮里面写(VB6及VB.NET)：
If frmOpen Is Nothing Then
VB6： Dim frmOpen as frmXXXX
vb.net： Dim frmOpen as New frmXXXX
上面这2行别混淆了。一个是VB6的一个是VB.NET的。
frmOpen.Show
else
frmOpen.Bringtotop
frmOpen.Focus
end if

简单呀
Form2.Visible
在按钮里面判断窗口是否隐藏，如果Form2.Visible=False则弹出新窗口Form2.Visible=True则不发生事情。

点一下打开 在点一下关闭？ 如果是的话 就申请个静态变量 判断变量