Sub ShowDesktopIcons(ByVal bVisible As Boolean)
ShowWindow GetWindow( _
FindWindow("Progman", "Program Manager"), GW_CHILD), _
IIf(bVisible, SW_SHOW, SW_HIDE)
End Sub

Sub EnableDesktop(ByVal bEnable As Boolean)
EnableWindow GetWindow( _
FindWindow("Progman", "Program Manager"), GW_CHILD), bEnable
End Sub