他的代码可以的，不知道你说的不可以是什么情况，系统什么提示？

全局变量要及时释放，系统不会自动释放的。

用得着这么麻烦吗?

没有提示，就是点击command1后，闪一下，没有显示表单2。

If Type("MyForm") = "U"
    Public MyForm
    Do Form Main.scx Name MyForm Linked
Else
    Messagebox("该表单已经运行！", 0 + 64, "提示信息：")
    MyForm.WindowState=0
Endif