Quiero usar VB para hacer un carrusel tipo lotería.

Este es un carrusel. La ubicación a la que vas es aleatoria. Debes establecer los premios específicos tú mismo. No te ayudaré... Esta frase Si c > 95 Entonces Timer1.Interval = 0 95 Cuanto menor sea el cambio, más rápida será la parada y mayor será la posibilidad de ir a una posición repetida. Lea atentamente el código, estos valores están activos y se pueden cambiar según sus necesidades.

'Agregar temporizador de control1 comando1 línea1

Atenuar x1%, y1%

Atenuar una cadena

Subcomando privado1_Click()

a = 0

Temporizador1.>Línea 1.x1 = x1: BorderColor = QBColor(14)

End Sub

Sub privado Timer1_Timer()

Aleatorio

c = Int((100) * Rnd + 1)

a = a + 1

Si a > 24 Entonces Timer1.Interval = 100

Si a > 40 Entonces Timer1.Interval = 200

Si a > 48 Entonces

Timer1.Interval = 300

Si c > 95 Entonces Temporizador1 .Intervalo = 0

Fin si

b = (3.14 / 8) * a

Línea1 .X2 = Línea1.x1 + (3000 * Sin(b))

Línea1.Y2 = Línea1.y1 - (3000 * Cos(b))

End Sub