Private Sub Command1_Click()
Dim x
Set x = CreateObject("Wscript.Shell")
If Check1.Value = 1 Then
x.regwrite "HKEY_LOCAL_MACHINESYSTEMCurrentControlSetControlWaitToKillServiceTimeout", "20", "REG_SZ"
Text1.Text = Text1.Text & Chr13 & "Wait_to_kill_service_timeout .... done" & Chr(13)
End If
If Check2.Value = 1 Then
x.regwrite "HKEY_CURRENT_USERControl PanelDesktopMenuShowDelay", "100", "REG_SZ"
Text1.Text = Text1.Text & Chr13 & "Start_menu_tweak .... done" & Chr(13)
End If
If Check3.Value = 1 Then
x.regwrite "KEY_LOCAL_MACHINESYSTEMCurrentControlSetServicesCdromautorun", "0", "REG_DWORD"
Text1.Text = Text1.Text & Chr13 & "Autorun_disable_tweak .... done" & Chr(13)
End If
If Check4.Value = 1 Then
x.regwrite "HKEY_CURRENT_USERSoftwareMicrosoftInternet ExplorerMainWindow Title", Text2.Text, "REG_SZ"
Text1.Text = Text1.Text & Chr13 & "IE_window_tile_tweak .... done" & Chr(13)
End If
If Check5.Value = 1 Then
x.regwrite "HKEY_LOCAL_MACHINESOFTWAREMicrosoftMediaPlayerPlayerUpgradeAskmeagain", Text3.Text, "REG_SZ"
Text1.Text = Text1.Text & Chr13 & "Media_Player_Automatic_Update_Message_tweak .... done" & Chr(13)
End If
If Check6.Value = 1 Then
x.regwrite "HKEY_CURRENT_USERConsoleFullScreen", "1", "REG_DWORD"
x.regwrite "HKEY_CURRENT_USERSoftwareMicrosoftInternetExplorerMainFullScreen", "yes", "REG_SZ"
Text1.Text = Text1.Text & Chr13 & "IE_fullscreen_tweak .... done" & Chr(13)
End If
If Check7.Value = 1 Then
x.regwrite "HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPoliciesExplorernointerneticon", "1", "REG_DWORD"
Text1.Text = Text1.Text & Chr13 & "IE_icon_tweak.... done" & Chr(13)
End If
If Check8.Value = 1 Then
x.regwrite "HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionExplorerDesktopCleanupWizDays between clean up", "10000", "REG_DWORD"
Text1.Text = Text1.Text & Chr13 & "Desktop_cleanup_wiz_tweak .... done" & Chr(13)
End If
If Check9.Value = 1 Then
x.regwrite "HKEY_CURRENT_USERControl PanelDesktopfontsmoothing", "2", "REG_SZ"
x.regwrite "HKEY_CURRENT_USERControl PanelDesktopFontSmoothingType", "2", "REG_DWORD"
Text1.Text = Text1.Text & Chr(13) & "Clear_type_tweak .... done"
End If
If Check10.Value = 1 Then
x.regwrite "HKEY_LOCAL_MACHINESYSTEMCurrentControlSetControlSession ManagerMemory ManagementClearPageFileAtShutdown", "1", "REG_DWORD"
Text1.Text = Text1.Text & Chr(13) & "Page_file_at_shutdown_clear_tweak .... done"
End If
If Check11.Value = 1 Then
x.regwrite "HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPoliciesSystemDisableTaskMgr", "1", "REG_DWORD"
Text1.Text = Text1.Text & Chr(13) & "Task_manager_disable_tweak .... done"
End If
If Check12.Value = 1 Then
x.regwrite "HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPoliciesSystemDisableTaskMgr", "0", "REG_DWORD"
Text1.Text = Text1.Text & Chr(13) & "Task_manager_enable_tweak .... done"
End If
Dialog.Show



End Sub