Binaryworld - SetDesktopVisible - Decide whether the desktop is visible ... [ VB -> Windows ]

' Set whether the desktop is visible
' Note: requires the SetRegistryValue, CheckRegistryKey and CreateRegistryKey
' routines, you can find them in the CodeBank
' Note 2: the setting does not take effect until Explorer is restarted
' Example:
' SetDesktopVisible False

Public Sub SetDesktopVisible(ByVal bVisible As Boolean)
  Const HKEY_CURRENT_USER = &H80000001
  Dim sKey As String

  sKey = "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer"

  ' if the Key does not exist
  If CheckRegistryKey(HKEY_CURRENT_USER, sKey) = False Then
    ' create the key
    CreateRegistryKey HKEY_CURRENT_USER, sKey
  End If

  ' set the value
  SetRegistryValue HKEY_CURRENT_USER, sKey, "NoDesktop", Abs(Not bVisible)

End Sub