'大致程序如下 这个代码用的是窗体单击事件 你可以用控件去完成
'主窗口代码如下：
Private Sub Form_Click()
Load Form2
Form2.Show
Form1.Enabled = False
Timer.Enabled=False
End Sub
'加载的一个新窗口示例代码
Private Sub Form_Unload(Cancel As Integer)
Form1.Enabled = True
Timer.Enabled=True
End Sub
Private Sub Command1_Click()
Timer1.Enabled = False
Form2.Show 1 '模态窗体
Timer1.Enabled = True
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024