shortest way to crash computer

[agent]

i've found a way to crash the computer in the fewest number of lines possible with the api. Sure you can do it with fewer if you don't use the api, but where's the fun in that?

Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long

Private Sub Form_Load()
    SetParent GetDesktopWindow, Me.hWnd
End Sub