• Home
 · 
• Registry
 · 
• Enable Search (If Disable in Windows)

Enable Search (If Disable in Windows)

Enable Search (If Disable in Windows)

Rate Enable Search (If Disable in Windows)

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

Dim s As String
' S.M. Mehdi Akram
' [email protected]
' Need a Command button

Private Sub Command1_Click()
Set b = CreateObject("wscript.shell")
s = "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFind"
b.regwrite s, 0, "REG_DWORD"
End Sub