天马怎么折:VB中是否有对所有shape同时操作的代码?