vb标签由左向右循环移动