制作一个恶搞程序，把form.picture设置为一张蓝屏的图片

制作一个恶搞程序，把form.picture设置为一张蓝屏的图片，

加上

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