在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

首先，不能退出主窗体，所以主窗体用HIDE方法
其余窗体可以用UNLOAD FORM来退出

注意，避免出现意外，需要在主窗体退出的时候UNLOAD掉其他所有窗体

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

那就hide

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

你要的是什么效果(别给我你的源代码，按一个主窗体课一个次窗体说明就行)

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

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

Private Sub Command1_Click()
Form2.Show
Form3.Hide
End Sub

Private Sub Command2_Click()
Form3.Show
Form2.Hide
End Sub

Form3.Show
Form2.Hide

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

Select Case Index
    Case 0
        Form2.Show 1
        form3.hide
        form4.hide
        form5.hide
        form6.hide
        form7.hide

    Case 1
        Form3.Show 1
        Form2.hide
        form4.hide
        form5.hide
        form6.hide
        form7.hide
    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
以此類推就可以