stdWindow - shell windows

[sancarn]

Would be nice to be able to obtain the shell windows representing a window

Obtainable by:

Property Get shellWindows() as Collection
  set shellWindows = new Collection
  Dim shell as object: set shell = CreateObject("Shell.Application")
  Dim shWin as object
  For each shWin in shell.windows
    if shWin = handle then
      call shellWindows.add(shWin)
    end if
  next
end property