制作一个恶搞程序,把form.picture设置为一张蓝屏的图片,
![](https://i-blog.csdnimg.cn/blog_migrate/ed63b24552aa25642fb8b99dd18d93b3.jpeg)
加上
Private Sub Form_Paint()
Me.PaintPictureMe.Picture, 0, 0, ScaleWidth, ScaleHeight
End Sub
以让图片全屏显示
设置Form..windowState=2-max
需要一个时间控件设置Interval=1000
Private Sub Form_Load()
MsgBox "此程序为恶意程序,其中包含的木马已经使系统损坏!系统已崩溃!!请重装系统",vbCritical, "警告"
End Sub
Private SubTimer1_Timer()
Static a As Integer
a = a + 1
If a = 15 Then
MsgBox "哈哈哈,被吓到没有,笑死我了",vbOKOnly +
vbInformation, "纯属恶搞"
End
End If
End Sub