Private Sub Taskmanager_Aktivieren()
Set Reg = CreateObject("Wscript.shell")
Reg.Regwrite _
"HKEY_CURRENT_USER\Software\Microsoft\Windows\ " & _
CurrentVersion\Policies\System\DisableTaskMgr", "0", _
"REG_DWORD"
End Sub