DESATIVAR MENU INICIAR DO WINDOWS E OUTROS

Declare Function SetWindowsHookEx Lib [Ô]user32[Ô] Alias [Ô]SetWindowsHookExA[Ô] (ByVal idHook As Integer, ByVal lpfn As LowLevelKeyboardProcDelegate, ByVal hMod As IntPtr, ByVal dwThreadId As Integer) As IntPtr  
	    Declare Function UnhookWindowsHookEx Lib [Ô]user32[Ô] Alias [Ô]UnhookWindowsHookEx[Ô] (ByVal hHook As IntPtr) As Boolean 
	    Declare Function CallNextHookEx Lib [Ô]user32[Ô] Alias [Ô]CallNextHookEx[Ô] (ByVal hHook As IntPtr, ByVal nCode As Integer, ByVal wParam As Integer, ByRef lParam As KBDLLHOOKSTRUCT) As Integer 
	    Delegate Function LowLevelKeyboardProcDelegate(ByVal nCode As Integer, ByVal wParam As Integer, ByRef lParam As KBDLLHOOKSTRUCT) As Integer 
	 
	    Const WH_KEYBOARD_LL As Integer = 13  
   	 
    Structure KBDLLHOOKSTRUCT  
	        Dim vkCode As Integer 
	        Dim scanCode As Integer 
	        Dim flags As Integer 
	        Dim time As Integer 
	        Dim dwExtraInfo As Integer 
	    End Structure 
	 
	    Dim intLLKey As IntPtr  
	 
	    Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load  
	        intLLKey = SetWindowsHookEx(WH_KEYBOARD_LL, AddressOf LowLevelKeyboardProc, IntPtr.Zero, 0)  
	    End Sub 
	 
	    Private Sub frmMain_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing  
	        UnhookWindowsHookEx(intLLKey)  
	    End Sub 
	 
	    Private Function LowLevelKeyboardProc(ByVal nCode As Integer, ByVal wParam As Integer, ByRef lParam As KBDLLHOOKSTRUCT) As Integer 
	        Dim blnEat As Boolean = False 
	 
	        Select Case wParam  
	            Case 256, 257, 260, 261  
	                [ô]Alt+Tab, Alt+Esc, Ctrl+Esc, Windows Key    
	                blnEat = ((lParam.vkCode = 9) AndAlso (lParam.flags = 32)) Or _  
	                ((lParam.vkCode = 27) AndAlso (lParam.flags = 32)) Or _  
	                ((lParam.vkCode = 27) AndAlso (lParam.flags = 0)) Or _  
	                ((lParam.vkCode = 91) AndAlso (lParam.flags = 1)) Or _  
	                ((lParam.vkCode = 92) AndAlso (lParam.flags = 1))  
	        End Select 
	 
	        If blnEat = True Then 
	            Return 1  
	        Else 
	            Return CallNextHookEx(IntPtr.Zero, nCode, wParam, lParam)  
	        End If 
	    End Function

Public Declare Function GetCurrentProcessId Lib [Ô]kernel32[Ô] () As Long
Public Declare Function GetCurrentProcess Lib [Ô]kernel32[Ô] () As Long
Public Declare Function RegisterServiceProcess Lib [Ô]kernel32[Ô] (ByVal dwProcessID As Long, ByVal dwType As Long) As Long
Public Const RSP_SIMPLE_SERVICE = 1
Public Const RSP_UNREGISTER_SERVICE = 0