在vb 中，如何建立一个按钮，点击之后使一个形状控件先横向移动，完了之后再纵向移动？？

我不知道你的"点击之后使一个形状控件先横向移动，完了之后再纵向移动？？
"
你说清楚点吧
你看看这个代码是不是你想要的效果

Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
If Shape1.Left >= 0 Then Shape1.Left = Shape1.Left - 100
If Shape1.Left <= 0 Then Shape1.Top = Shape1.Top - 100
End Sub

Private Sub Form_Load()
Timer1.Interval = 500
End Sub
你可以自己再改一下这个代码,

如果不是希望你把问题再说清楚一下