如何选择tag = 1的每个RectangleShape？

Question

我需要更改Form1中每个RectangleShape的位置。我已经导入了Microsoft.VisualBasic.PowerPacks.RectangleShape。这就是我试过的：

For Each Microsoft.VisualBasic.PowerPacks.RectangleShape(Tag = 1) In Me
   Location.X -= 10
Next

但它出现了错误，“'RectangleShape'是'PowerPacks'中的一个类型，不能用作表达式。”

提前致谢。