这个代码有什么问题啊？？

[flypinging]

Private Sub Command2_Click()
If Command1.Left >= Form1.Width-Command1.Width
Command1.Left = 0
End If
Command1.Left = Command1 + 150
End Sub

Private Sub Command3_Click()
End
End Sub

我可是照着输入的啊，可是总不能运行，说什么语法错误，高手帮忙，我和书上的对了又对，都是一样的啊，为什么我总不能成功运行？

[enj1224]

Command1.Left = Command1.Left + 150
吧！
不然怎么会对？

[Neoking]

赞同！！

[flypinging]

Private Sub Command2_Click()
if command1.Left>=form1.Width-command1.Width
Command1.Left = 0
End If
Command1.Left = Command1.Left + 150
End Sub

Private Sub Command3_Click()
End
End Sub
我改了，为什么还是不行呢？也是语法错误，
Private Sub Command2_Click() 这一行显示为黄色
if command1.Left>=form1.Width-command1.Width 这一行显示为红色
我在输入上面这句后，回车，出现“编译错误：缺少then或go to "
唉，其实这个问题在书上是很简单的，可是我怎么这么笨呢，又要麻烦大家了

[dapha]

Command1.Left = Command1 + 150

这里错了，或许是书上印错了