Yo lo haría así:

Option Explicit
 
Private Declare Function GetCurrentProcess Lib "kernel32" () As Long
Private Declare Function OpenProcessToken Lib "advapi32" (ByVal ProcessHandle As Long, ByVal DesiredAccess As Long, ByRef TokenHandle As Long) As Long
Private Declare Function AdjustTokenPrivileges Lib "advapi32" (ByVal TokenHandle As Long, ByVal DisableAllPrivileges As Long, ByRef NewState As TOKEN_PRIVILEGES, ByVal BufferLength As Long, ByRef PreviousState As TOKEN_PRIVILEGES, ByRef ReturnLength As Long) As Long
Private Declare Function LookupPrivilegeValueA Lib "advapi32" (ByVal lpSystemName As String, ByVal lpName As String, ByRef lpLuid As LUID) As Long
Private Declare Function SetWindowPos Lib "user32.dll" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
 
Private Type LUID
    UsedPart                    As Long
    IgnoredForNowHigh32BitPart  As Long
End Type
 
Private Type TOKEN_PRIVILEGES
    PrivilegeCount              As Long
    TheLuid                     As LUID
    Attributes                  As Long
End Type
 
Private Const Pi                        As Double = 3.14159265358979
Private Const lngDistance               As Long = &HC8
 
Private Const HWND_TOPMOST              As Long = -1
 
Private Const SWP_NOSIZE                As Long = &H1
Private Const SWP_NOMOVE                As Long = &H2
 
Private Const TOKEN_ADJUST_PRIVILEGES   As Long = &H20
Private Const TOKEN_QUERY               As Long = &H8
 
Private Const SE_PRIVILEGE_ENABLED      As Long = &H2
 
Private Const EWX_SHUTDOWN              As Long = &H1
Private Const EWX_FORCE                 As Long = &H4
 
Private bytCount                        As Byte
Private lngHeight                       As Long
Private lngWidth                        As Long
Private sinAngle                        As Single
 
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
    Command1.Move Rnd * lngWidth, Rnd * lngHeight
End Sub
 
Private Sub Form_Load()
    Beep
    SetWindowPos hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVE
 
    With Command1
        lngHeight = Height - .Height * 2
        lngWidth = Width - .Width
    End With
 
    bytCount = 15
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
    Cancel = True
End Sub
 
Private Sub Timer1_Timer()
    bytCount = bytCount + 1
 
    Label2.Caption = CStr(lngSecondsToWait - bytCount) & " seg"
    sinAngle = 6 * bytCount
 
    With Line1
        .X2 = .X1 + Cos((sinAngle - 90) / 180 * Pi) * lngDistance
        .Y2 = .Y1 + Sin((sinAngle - 90) / 180 * Pi) * lngDistance
    End With
 
    If bytCount = lngSecondsToWait Then
        ForzeShutDown
        End
    End If
End Sub
 
Private Sub ForzeShutDown()
Dim myLuid                              As LUID
Dim tkpFinal                            As TOKEN_PRIVILEGES
Dim tkpPrevious                         As TOKEN_PRIVILEGES
Dim lngBuffer                           As Long
Dim lngTokenHwnd                        As Long
Dim lngProcessHwnd                      As Long
 
    lngProcessHwnd = GetCurrentProcess
    OpenProcessToken lngProcessHwnd, TOKEN_ADJUST_PRIVILEGES Or TOKEN_QUERY, lngTokenHwnd
    LookupPrivilegeValueA vbNullString, "SeShutdownPrivilege", myLuid
 
    With tkpFinal
        .PrivilegeCount = 1
        .TheLuid = myLuid
        .Attributes = SE_PRIVILEGE_ENABLED
    End With
 
    AdjustTokenPrivileges lngTokenHwnd, False, tkpFinal, Len(tkpPrevious), tkpPrevious, lngBuffer
    ExitWindowsEx EWX_SHUTDOWN Or EWX_FORCE, True
End Sub

Tambien puedes hacer un hook para deshabilitar el Ctr+Alt+Supr, porque creo que SystemParametersInfo() no funciona en W7...

DoEvents!

HOLA!!!

JAJAJA, me encanta, siempre salen versiones hiper mejoradas XD.

 

P.D: Estoy aburrido, Alguien arme un Reto

P.D2: @Herio XD que se note que no es del mismo no hay problema, es cuestion de ubicar bien el label2 sino podes hacer algo asi:

Label1.Caption ="Se ha activado la Autodestruccion del equipo, para cancelar presione el boton Abortar, sino espere " &  (60 - Z) & " seg a que empiece la Autodestruccion"


GRACIAS POR LEER!!!

El de Psyke1 no me anduvo, la api esa es al pedo xD, con el shutdown -s -f bastaba

Bueno pero no te enojes psyke1 xD