BCX Console Demonstration Program s88.bas |
ShowDesktopIcons(0) SLEEP(3000) ' create a 3 second delay ShowDesktopIcons(1) SUB ShowDesktopIcons(bShow) DIM hProgMan AS HWND hProgMan = FindWindow(NULL, "Program Manager") IF hProgMan THEN IF bShow THEN ShowWindow(hProgMan, SW_SHOW) ELSE ShowWindow(hProgMan, SW_HIDE) END IF END IF END SUB