freez windows

Visual Basic 6 Application
Task: freez windows

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

Put in command button
sub Freezcomputer (frm as form)
dim freez
freez = setparent (frm, frm)
end sub