Tengo un problema con el procedimiento de lotería de VB, por favor consulte a un maestro urgentemente. Cómo configurar el sorteo para que comience cuando se hace clic en el botón de inicio y el sorteo se detiene cuando se hace clic en el botón de detener y el sorteo es 65

¿Privado?Sub?Command1_Click()?'Haga clic para iniciar

Timer1.Interval?=?100

Timer1.Enabled?=?True

Fin?Sub

¿Privado?Sub?Command2_Click()?'Haga clic para finalizar

Temporizador1.Enabled?=?False

Fin?Sub

¿Privado?Sub?Timer1_Timer()?'Proceso de lotería

Dim?m()

Aleatorizar

m?=?Array (" "Zhang San",?"Li Si",?"Amao",?"Agou",?"Pon los 65 nombres aquí...")

Label1.Caption?=?m( Int(Rnd?*?(UBound(m)? ?1)))

End?Sub El programa anterior utiliza cuatro controles: Comando1, Comando2, Etiqueta1, Temporizador1