Crash!!!!!!!!!!!!

[spetnik]

Here's an interesting function that will crash windows. No crunching, no hourglass, no message. Just immediately completely freezes. If you try it (i did ), make sure u save all your work first!!!! I take no responsibility!

Public Declare Function GetParent Lib "user32" (ByVal hWnd As Long) As Long
Public Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, _
    ByVal hWndNewParent As Long) As Long
 
Public Sub crashMe(hWnd As Long)
    Call SetParent(GetParent(hWnd), hWnd)
End Sub