Static masir As String = "software\microsoft\windows\currentversion\policies\explorer"
Dim regeditkey As RegistryKey
regeditkey = Registry.CurrentUser
regeditkey = regeditkey.CreateSubKey(masir)
regeditkey.SetValue("NoClose", 1, RegistryValueKind.DWord)
System.Diagnostics.Process.Start("explorer.exe")