图1
图2
就这样子,一点击form1 按钮就疯狂弹出图2这样的窗口。
做一个死循环的消息框就OK咯
这很简单在时间控件那设置时间每秒弹出一个对话筐 再双机那个控件进入代码写MSGBOX(“”) 就能象你那样了
Private Sub Command1_Click()
do while 1 MsgBox "想整人?证的就是你O(∩_∩)O", 16, "你被整了" loop End Sub