如何在桌面上平铺特定窗口或应用程序

Question

我搜索了网页，发现了一个vb脚本来平铺桌面上的窗口。但我想平铺特定的窗口或应用程序。例如，如果我在Paint和一个Excel文件中打开三个图像，我只想在桌面上显示Paint应用程序平铺。

我根据戴建议更改了我的代码，但所有窗口都是平铺的。 还有一个问题。在我的代码中，我过滤了“Untitled -Paint”。但是，如果我打开图像，会有“filename -Paint”。我怎么能得到它们？ 这是迄今为止的代码：

   Option Explicit 

   Dim oWS, oShell
   Set oShell = CreateObject("Shell.Application") 
   Set oWS=CreateObject("WScript.Shell")   
   Dim App
   App="Untitled - Paint"

    If oWS.AppActivate(App) then

     else
       WScript.Sleep 500   
       oWS.SendKeys "% x"               
      End if

      oShell.TileVertically   
       WScript.Quit