难点在Load后Unload.Hide在第二次就无效了。解决办法:
新建From1(窗体),新建Command1(按钮CommandButton),代码:
新建frmA(窗体),Timer1(Timer Timer1.Enabled=True 1000毫秒)代码: