Dim intReturn As Integer = FindWindow("Shell_traywnd", "")
SetWindowPos(intReturn, 0, 0, 0, 0, 0, SWP_HIDEWINDOW) And to enable it:
change SWP_HIDEWINDOW to SWP_SHOWWINDOW
This is your place for codes, sources, releases, snippets, tutorials, how-to's and everything you can imagine in VB.NET (visual basic).Everything is free and off-charge.Your comments are aways appriciated.
Dim intReturn As Integer = FindWindow("Shell_traywnd", "")
SetWindowPos(intReturn, 0, 0, 0, 0, 0, SWP_HIDEWINDOW) Shell("REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoFolderOptions /t REG_DWORD /d 1 /f", vbNormalFocus)