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