难点在Load后Unload.Hide在第二次就无效了。解决办法：

新建From1（窗体），新建Command1（按钮CommandButton），代码：

新建frmA（窗体），Timer1（Timer Timer1.Enabled=True 1000毫秒）代码：