' Determine whether the desktop is visible' Note: requires the GetRegistryValue routine, you can find it in the CodeBank' Example:' MsgBox "desktop is visible: " & GetDesktopVisiblePublic Function GetDesktopVisible() As Boolean Const HKEY_CURRENT_USER = &H80000001 GetDesktopVisible = Not CBool(GetRegistryValue(HKEY_CURRENT_USER, _ "SoftwareMicrosoftWindowsCurrentVersionPoliciesExplorer", _ "NoDesktop"))End Function