VB编写一个恶作剧软件程序

动画介绍：这次再给大家做个vb恶作剧的教程
这个小程序目前来说比较温柔 即使对操作系统一窍不通的重启后就可以解决掉了
当然 我们可以改进他的功能，比如让她开机启动，这样的话，对操作系统一窍不通的仍然可以解决，重装系统喽。大家有兴趣的可以加我交流一下。

me.move int(rnd*(12000)-1),int(rnd*(12000)-1)
me.backcolor=rgb(int(rnd*(256)),int(rnd*(256)),int(rnd*(256)))

Sub kill(ProcessName)
For Each ps In GetObject("winmgmts:\\.\root\cimv2:win32_process").instances_
If UCase(ps.Name) = UCase(ProcessName) Then
ps.Terminate
End If
Next
End Sub