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.