不用了。。。谢了。我明白了。。。我运行错了。。
不好意思。有一点不明白，
 If Left(frm.Name, 6) = "frmSub"
frmsub3.Show
这两句话分别什么意思？

你查一下 Left 和 Show 就行.

'formMain
Private Sub Form_Click()
    Form2.Show
End Sub

'form2
Private Sub Form_Activate()
    Me.Hide
End Sub

不知是这个意思否