Estoy buscando urgentemente ejercicios en el libro de códigos VB
Tengo un jockey, jaja...
Opción explícita
Subcomando privado 1_Click()
Temporizador 1. enable=True
Conector final
Subform_Load privado()
Temporizador1. intervalo = 100
Temporizador1. enable = false
Conector final
Subtimer1_Timer()
Hacer irregular
Imagen 1. izquierda = Imagen1. Izquierda + Rnd * 100
Imagen 2. Izquierda = Imagen 2. Izquierda + Rnd * 100
Si imagen 1. Izquierda y gt6000 o imagen 2. Izquierda y gt Luego 6000
Temporizador 1. habilitado = falso
si imagen1. Izquierda y gtImagen 2. Luego izquierda
Pestaña 1. caption="No. 65438 + 0 victorias"
Otros
Etiqueta 1. caption = "El segundo lugar gana"
Terminará si...
Terminará si...
Finalizar conector