要简单呢就在Form2加EndPrivate Sub Form_Unload(Cancel As Integer)EndEnd Sub
这位朋友可以把代码改一下:Private Sub Form_Click()Unload MeForm2.ShowEnd Sub