VB lottery program problem, urgently seeking the great god. How to set the lottery to start after clicking the start button and stop after clicking the stop button.

Private? Sub? Command 1_Click()? It starts at eight o'clock

Timer 1. Interval? =? 100

Timer 1. Enable? =? real

End? submarine

Private? Sub? Command2_Click()? It ends at o'clock.

Timer 1. Enable? =? wrong

End? submarine

Private? Sub? Timer 1_Timer ()? Lottery process

Dim? Mi ()

Irregular

m? =? Array ("Zhang San",? "Li si" "Cat"? "Dog"? "Write all 65 names here ...")

Label 1。 Title? =? m(Int(Rnd? *? (UBound(m)? +? 1)))

End? The above program uses four controls: Command 1, Command2, Label 1 and Timer 1.