VB 點一下跑一下

Dim c, d As Integer
Private Sub CommandButton2_Click()
If CommandButton1.Left > 150 Then
d = -1
End If
If CommandButton1.Left < 50 Then
d = 1
End If
c = c + d
CommandButton1.Left = 50 * c


End Sub