怎么用VB6.0做一个无限弹窗的软件。

怎么用VB6.0做一个无限弹窗的软件。

可以用Timer控件来实现

添加两个窗体，Form1，Form2，在Form1中增加一个Timer1控件
然后在Form1中输入如下代码：
Private Sub Form_Load()
Timer1.Interval = 500
End Sub

Private Sub Timer1_Timer()

If Form1.Visible = True Then
Form1.Visible = False
Form2.Visible = True
Else
Form1.Visible = True
Form2.Visible = False
End If
End Sub

我只会用VB6.0做一个移动屏保，还是用自己喜欢的相片做，但是没做过无限弹窗，楼主你太邪恶了

要调什么窗？是消息窗的话，就在timer里加一条msgbox语句就行了

窗口 需要 系统资源的
最后 会 资源耗尽！ 油尽灯灭

加一个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键等的方法，让程序无法结束，这个最邪恶←_←。