Write a program to Read items on a desktop

‘ Minimize the all the window and will show desktop –
SystemUtil.Run "C:\Documents and Settings\MDV\Application Data\Microsoft\Internet Explorer\Quick Launch\Show Desktop.scf","","","open"
a= window("regexpwndtitle:=Program Manager").WinListView("object class:=SysListView32" ).GetROProperty("all items")
msgbox a
For i =0 to 10
myarray = split(a)
'msgbox myarray
b= trim(myarray(i))
msgbox b
next