Dim start, finish, money As Integer
Private Sub Command1_Click()
If Option1(0).Value = False And Option1(1).Value = False And Option1(2).Value = False And Option1(3).Value = False Then
  MsgBox "请选择选手", , "信息提示"
Else
For i = 0 To 3
  If Option1(i).Value = True Then
    Exit For
  Else
    If i = 3 Then
      Exit Sub
    End If
  End If
Next i
money = money - 20
Label2.Caption = money
Command1.Enabled = False
Do
  no = Int(Rnd * 4)
  wit = Int(Rnd * 21) + 23
  Image1(no).Move Image1(no).Left + wit, Image1(no).Top
  pause (0.03)
Loop Until Image1(no).Left + Image1(no).Width > finish
If Option1(no).Value = True Then
  MsgBox Option1(no).Caption + "赢了！"
  money = money + 60
  Label2.Caption = money
Else
  MsgBox "你输了！"
End If
If money = 0 Then
  MsgBox "你已经没赌注了！"
Else
  Command1.Enabled = True
End If
For i = 0 To 3
  Option1(i).Value = False
  Image1(i).Left = start
Next i
End If
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_Load()
Randomize Timer
start = Image1(0).Left
finish = 6000
money = 100
Label2.Caption = money
End Sub
Sub pause(x)
w = Timer
Do While Timer - w <= m
  wait = DoEvents
Loop
End Sub

这个过程什么意思啊，具体点，谢谢
Sub pause(x)
w = Timer
Do While Timer - w <= m
  wait = DoEvents
Loop
End Sub

延时的吧,不过不知道m是个啥东西,参数x也没有用   这个sub应该是个败笔

可是没这就不能运行，

你写个给我看啊 谢谢

2#版主回复得正确,这是一个延时的过程
我在论坛发过这个代码,再贴一次吧,把下面代码放在通用模块中,随时可以调用
比如你在某一行代码前加入 call Delay(5000),则这一行代码要等五秒后才会执行
Public Sub Delay(mSec As Long)    'mSec表示你需要延长几秒
  On Error Resume Next
          Dim TStart     As Single
          TStart = Timer
          While (Timer - TStart) < (mSec / 1000)
                  DoEvents
          Wend
   End Sub

这种延时是不考虑精度的情况下  可以使用

谢谢啊