绿色是有问题的
Private Sub Command1_Click()
  For x = Picture1.Left To Val(combobox1.Text) Step HScroll1.Value / 100
  
      Picture1.Left = x
      Next x
    Command1.Enabled = False
    Command2.Enabled = True
   
   
End Sub

Private Sub Command2_Click()
   Picture1.Left = 0
   Command1.Enabled = True
   Command2.Enabled = False
End Sub

Private Sub Command3_Click()
  Command2.Enabled = False
  Command1.Enabled = True
  Picture1.Left = 0
End Sub

Private Sub Form_Load()
    Picture1.Left = 0
    Command1.Enabled = True
    Command2.Enabled = False
End Sub

改什么？

啥问题？
combobox1不存在？ HScroll1.Value=0？

For x = Picture1.Left To Val(combobox1.Text) Step HScroll1.Value / 100
  
val（combo1.text)
看看是不是写错了这个问题

没有，他是说我的绿色语句中 断窗口是这样的  

打包发来看看
代码也没啥问题，至于你要的功能能不能实现没试，运行没出错

来瞄瞄。。。

Private Sub Form_Load()加上HScroll1.min=1

[ 本帖最后由 Artless 于 2010-10-17 00:33 编辑 ]