race wont stop

[jagguy]

I want to have a race between 2 picboxs using rnd.
Now it works but fails to stop when we have a winner as I get an infinite loop with msgbox.

  Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
         pb1.Left += Int(Rnd() * 20)
        pb2.Left += Int(Rnd() * 20)
        If pb1.Left <= 0 Or pb1.Right >= Me.ClientSize.Width Then
            MsgBox("pb1 wins")
            pb1.Left = 0
            pb2.Left = 0
            Timer1.Enabled = False
            Reset()
            End
        End If

        If pb2.Left <= 0 Or pb2.Right >= Me.ClientSize.Width Then
            pb2.Left = 0
            pb1.Left = 0
            MsgBox("pb2 wins")
            Timer1.Enabled = False
            Reset()
            End
        End If
    End Sub

[mickey_pt]

Try to change the order in the Ifs...

The first statement must be Timer.Stop... and then pbx.left=0...