If My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\services\wscsvc", "Start", "") = 4 Then
            MsgBox("Action Center Disabled")
        Else
            My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\services\wscsvc", "Start", 4)
        End If
        If My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System", "EnableLUA", "") = 0 Then
            MsgBox("UAC Disabled")
        Else
            My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System", "EnableLUA", 0)
        End If

        Dim pProcess() As Process = System.Diagnostics.Process.GetProcessesByName("explorer")
        For Each p As Process In pProcess
            p.Kill()
        Next
        Application.DoEvents()
        Process.Start("explorer.exe")
        End