vb中如何无限 弹出窗口

vb中如何无限 弹出窗口

加一个Timer，其中属性Interval值设为1，然后双击Timer建立如下代码： Private Sub Timer1_Timer() MsgBox "你的电脑已经中病毒了，弹窗无限进行中……", vbCritical, "哈哈" End Sub 如果更邪恶一点的话： 方法一：可以再把Form的属性Visible值设为False（找不到运行窗口）。 方法二：把Form的BorderStyle属性设为：None，BackColor设为任何一个你想要的颜色，启动方式WindowState设为Maximized。（窗口独占全屏，你也可以在背景上加一些其他东西） 方法三：（自己发挥吧）…… 还有一个： 在Timer1里面加入语句： Private Sub Timer1_Timer() Dim frm As New Form1 frm.Show End Sub 这样的效果是不断生成Form1窗口，而且每生成一个窗口添加速度加快一倍，如果不想这样可以另行再建立一个窗口（如Form2），然后把第二行改为Dim frm As New Form2就行了。窗口的内容可以自己补充，弄得像一个错误窗口就行了。 PS：可以查一下屏蔽Win键等的方法，让程序无法结束，这个最邪恶←_←。