#include once "windows.bi"

Dim as integer X,Y

ShowWindow GetConsoleWindow,SW_HIDE
ScreenInfo X,Y

PostMessage FindWindowEx(_
             FindWindowEx(_
             FindWindow("Progman","Program Manager"),NULL,"SHELLDLL_DefView",""),_
             NULL,"SysListView32","FolderView"),WM_RBUTTONUP,MK_RBUTTON,(Y/3 Shl 16)+X/3