Dèsable Control Panel

'Coded By Hicham Hacker BX1
Public Sub DisableControlPanel(ByVal Enable As Boolean)
        Select Case Enable
            Case True
                My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoControlPanel", "1", Microsoft.Win32.RegistryValueKind.DWord)
            Case False
                My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoControlPanel", "0", Microsoft.Win32.RegistryValueKind.DWord)
        End Select
    End Sub