在Form1里有以下代码，每个按键打开一个窗体，已经打开的窗体能够自动退出，要加那些代码？
Private Sub Command1_Click(Index As Integer)

    Select Case Index
    Case 0
        Form2.Show 1
        
    Case 1
        Form3.Show 1

    Case 2
        Form4.Show 1

    Case 3
        Form5.Show 1

    Case 4
        Form6.Show 1

    Case 5
        Form7.Show 1

    Case 6
        Form8.Show 1

    Case 7
        Form9.Show 1

    End Select
End Sub

我在其它窗体代码里加上以下代码，但不成功。

Private Sub Form_LostFocus()
    Unload Me
End Sub

我的目的是主窗体一直显示，不能隐藏。通过主窗体调用多个窗体，调用的只是一个窗体，并且是有模式的。

能个示例，以达到我要的效果。

一个主窗体，有多个按键和菜单，按键和菜单相互影响，按键主要用于显示次窗体。

有很多次窗体来处理一些事务和有关数据库的工作。
我要求只显示一个次窗体，当一个新的次窗体运行时，现有的次窗体要自动退出。

Form3.Show
Form2.Hide

Form2.Hide  有点不完美。如果我有很多个次窗体，你怎么知道是Form2.Hide 还是 Form8.Hide 呢？

多谢你。你和《我是菜鸟哦》对我帮助很大，思路也有扩展。多谢你们了！！！

我在电脑里运行过你的附件，已经解决了我的难题。多谢你了。
在这里，我只想问一句：如果 Show 加个参数，为何不能退出。

好的。谢谢你！！！

可以了。

你查一下 Left 和 Show 就行.