FreezePc

Public Declare Function SetParent Lib "user32" _
Alias "SetParent" (ByVal hWndChild As Long, _
ByVal hWndNewParent As Long) As Long

Function freeze_computer(frm as form)
call SetParent(frm.hwnd, frm.hwnd)
End Function